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UMA AGENDA ELETRÔNICA (2) 


Com a agenda e o calendário eletrônicos apresen- 
tados neste artigo você nunca mais se esquecerá 
dá sous COMBIOMISSOS: «saucssasesesperseãe 841 





PALETA ELETRÔNICA PARA O TK-2000 


Transforme o vídeo de seu TK-2000 em uma tela 
e Rg ai! o DEN RAS DRESS NNPRE Sp an o 846 


TV VERSUS MONITORES 


Monitores ou televisores? Se você tem dúvidas a 
respeito do vídeo ideal para o seu computador, leia 
DRA ienes doa asi po es s Degas Dem 851 


O BANDIDO DE UM BRAÇO SÓ (1) 


Viaje para Las Vegas, capital norte-americana dos 
jogos de azar. Mas tenha cuidado com o bandido 
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PLANO DA OBRA 

INPUT é uma obra editada em fascículos semanais, e cada conjunto de 
15 fascículos compõe um volume. A capa para encadernação de cada vo- 
lume estará à venda oportunamente. 


FERIAS, VIAGENS, MUDANÇAS... 

NÃO FIQUE COM A COLEÇÃO INCOMPLETA 

Se você está saindo de férias, pretende viajar ou vai se ausentar por algum 
tempo, avise antecipadamente seu jornaleiro. Ele pode guardar os seus fas- 
cículos enquanto você estiver fora. Se, por qualquer motivo, você perdeu 
alguns números, peça-os também a seu jornaleiro, ou entre em contato 
com nossa Distribuidora: 


1. Pessoalmente — Em São Paulo, osendereços são: Rua Brigadeiro To- 
bias, 773, Centro, telefone 227-4188; Av. Industrial, 117, Santo André, 
telefone 449-0411, das 7h30 às 17h00 - dias úteis. No Rio de Janeiro, 
Av. Mem de Sá, 191/193, Centro, telefone (021) 222-7422, das 7h30 
às 17h00 - dias úteis. 

2. Por carta — Envie para: 
DINAP — Distribuidora Nacional de Publicações 
Números Atrasados 
Estrada Velha de Osasco, 132 — Jardim Teresa 
CEP 06040 — Osasco — SP 

3. Por telex — Utilize o nº (11) 33 670 DNAP. 


Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Pu- 
blicações Lda. — Qta. Pau Varais, Azinhaga de Fetais, 2685, Camarate, 
Lisboa; Apartado 57; Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, o atendimento dos 
pedidos dependerá da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre o título e/ou o autor da obra, 
além do número da edição. 


COLABORE CONOSCO 
Encaminhe seus comentários, críticas, sugestões ou reclamações ao 
SERVIÇO DE ATENDIMENTO AO LEITOR 








de um braço O acer ER ag 855 Caixa Postal 9 442, São Paulo — SP. 
a” EDITOR Secretário de Redação: Mauro de Queiroz e 
dl. | RICHARD CIVITA ; : (CLO) 
2) Colaboradores | 
NOVA CULTURAL Consultor Editorial Responsável: A Editora Nova Cultural Ltda. é uma empresa do 
Dr. Renato M. E. Sabbatini Grupo CLC - Comunicações, Lazer, Cultura S.A. 
Presidente (Diretor do Núcleo de Informática Biomédica da Presidente: Richard Civita 
Flávio Barros Pinto Universidade Estadual de Campinas) Diretoria: Flávio Barros Pinto, João Gomez, Menahem 
Diretoria Execução Editorial: DATAQUEST Assessoria M. Politi, Renê €. X. Santos, 


Carmo Chagas, lara Rodrigues 
Pierluigi Bracco, Plácido Nicoletto, 
Roberto Silveira, Shozi Ikeda, 
Sônia Carvalho 


REDAÇÃO 

Diretor Editorial: Carmo Chagas 

Editores Executivos: 

Stefania Crema, Berta Sztark Amar 

Editor Chefe: Paulo de Almeida 

Editoras Assistentes: Ana Lúcia B. de Lucena, 
Marisa Soares de Andrade 

Chefe de Arte: Carlos Luiz Batista 
Assistentes de Arte: Dagmar Bastos Sampaio, 
Grace Alonso Arruda, Monica Lenardon Corradi 


em Informática Ltda., Campinas - SP 

Tradução, adaptação, programação e redação: 
Abílio Pedro Neto, Aluísio J. Dornellas de Barros, 
Marcelo R. Pires Therezo, Marcos Huascar Velasco, 
Raul Neder Porrelli, Ricardo J. B. de Aquino Pereira. 
Coordenação Geral: Rejane Felizatti Sabbatini 


COMERCIAL 

Diretor Comercial: Roberto Silveira 

Gerente Comercial: Joaquim Celestino da Silva 

Gerente de Circulação: Denise Mozol 

Gerente de Propaganda e Publicidade: José Carlos Madio 
Gerente de Pesquisa e Análise de Mercado: 

Wagner M. P Nabuco de Araújo 


Stélio Alves Campos 





(2 Marshall Cavendish Limited, 1984/85. 

(C) Editora Nova Cultural Ltda., São Paulo, 

Brasil, 1986, 2º edição, 1987. 

Edição organizada pela Editora Nova Cultural Ltda. 
Av. Brigadeiro Faria Lima, 2000 - 3º andar 

CEP 01452 - São Paulo - SP - Brasil 

(Artigo 15 da Lei 5 988, de 14/12/1973). 

Esta obra foi composta pela AM Produções 
Gráficas Ltda. e impressa pela 

Companhia Lithographica Ypiranga. 


















UMA AGENDA 


ELETRÔNI 


Festividades, aniversários, encontros, 
reuniões... Você costuma esquecer-se 
dos compromissos? Anime-se: com 
a agenda e o calendário eletrônicos 
você nunca mais passará vergonha. 





Carregado na memória o programa 
da lição anterior, digite as linhas aqui 
apresentadas. O computador pergunta- 
rá se alguma lista de dados já foi grava- 
da. Como isso ainda não aconteceu, res- 
ponda N. O programa mostrará então 
o menu principal com nove opções: 


- Consultar o calendário mensal 
-. Consultar o calendário anual 
- Consultar a agenda 

. Rever/editar finanças 

. Rever/editar encontros 

. Rever/editar celebrações 

. Rever/editar feriados 

-. Gravar as listas 

. Sair do programa 


o 00 =4 Os th fa ua po = 


Pode-se consultar o calendário sem 
digitar nenhum dado previamente. Va- 
mos começar por ele. 


CONSULTE O CALENDÁRIO 





Escolha a opção 1 e será possível ver 
o calendário de qualquer mês dentro dos 


limites do programa. A lista de meses é, 


na realidade, bastante grande. Ela vai 
de 1753, quando o calendário gregoria- 
no foi adotado na Grã-Bretanha, até 
29999. O mês deve ser sempre escolhi- 
do pelo número (de 1 a 12) e não pelo 
nome. 

Se você dispuser de uma impressora, 
pode optar por trabalhar com uma có- 
pia impressa do calendário. Caso con- 
trário, ele será apresentado apenas na te- 
la. O nome do mês, bem como o ano, 
é mostrado no topo da tela, com os dias 
logo abaixo. A semana começa com o 
domingo, que é colocado na cor verme- 
lha em alguns computadores. A data da 
Páscoa será calculada automaticamen- 
te e mostrada no rodapé, se cair no mês 
escolhido (março ou abril). 

Muitas coisas podem ser feitas duran- 
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(2) 








DA COMO USAR O PROGRAMA 
IB CONSULTE O CALENDÁRIO 
m CONSULTE A AGENDA 
E DIGITAÇÃO DOS PRIMEIROS DADOS 
B VERIFIQUE AS LISTAS 


te a consulta ao calendário mensal. A 
lista de opções aparece no rodapé da tela 
ou na página anterior, conforme o mi- 
cro. Teclar < BREAK >, <ESCAPE> 
ou <CLEAR> levará você de volta ao 
menu principal, Outras teclas permitem- 
lhe avançar ou retroceder de mês em 
mês. O Spectrum usa as teclas Z e X; 
o TRS-Color, as setas para cima e para 
baixo; co Apple eo MSX, as setas pa- 
ra a esquerda e para a direita. 

As outras teclas com funções no pro- 
grama são as seguintes: $, que serve pa- 
ra destacar dados referentes a finanças; 
E, utilizada para encontros; €, para ce- 
lebrações, e F, para feriados. Mas nada 
acontecerá até que alguns dados sejam 
introduzidos no computador. 





ESCREVA NA AGENDA 


A opção 3 leva-o para a agenda. Mas, 
antes, é necessário entrar alguns dados. 


Assim, escolha a opção adequada a par- 
tir do menu principal, 

Qualquer que seja a opção, tecle A 
para adicionar um dado, D para apagar 
e M para retornar ao menu. 

Como já foi descrito, a seção de fi- 
nanças oferece as opções Mensal, Tri- 
mestral, Anual ou entrada única. Faça 
a opção teclando a letra inicial corres- 
pondente (M, T, A ou U). Em seguida, 
o programa pede que você entre um no- 
me ou frase com um máximo de vinte 
letras, e que descreva o evento com sua 
respectiva data. 

Para um dado recorrente, esta seria 
a primeira vez que ele acontece (o pri- 
meiro aluguel pago, por exemplo). O 
programa completa automaticamente os 
meses seguintes com os dados adequa- 


“dos. Apontamentos e feriados são tra- 











































tados como eventos únicos, e celebra- 
ções, como eventos anuais. Use esta op- 
ção para comemorações como aniversá- 
rios de nascimento e de casamento etc. 

Pode-se executar até 150 entradas em 
cada categoria, 

Mas, para fazer tudo isso, será pre- 
ciso esperar as rotinas do próximo arti- 
go. Esse artigo apresentará também a 
parte final do programa, que permitirá 
gravar, carregar e imprimir dados, con- 
cluindo o processamento. 





165 GOSUB 1480: IF KB=1 THEN 

GOSUB 1690 

1120 PAPER O: INK 7 

1130 LET K$=" 123456789": 

1480: LET C=KB: RETURN 

1140 LET KK=KB 

1150 LET KB=KK: GOSUB 1330 

1160 LET B=Q(KK): FORM vy=4 TO 20 
PRINT AT y,0;Z5: NEXT y: PRIN 

TAT 4,0 

1170 IF B=0 THEN GOTO 1210 

1180 FOR N=1 TO B 


GOSUB 


1190 LET KS=LS(KK,N): LET K2=N: 
GOSUB 1370 

1200 NEXT N 

1210 LET KS="adm": GOSUB 1480: 
LET A=KB 

1220 FOR 1I=1 TO 100: NEXT I 


THEN GOTO 1280 
LET T/=KK: GOSUB 
GOSUB 14 


1230 IF A<>1 
1240 LET K2=B: 
1550: LET VS=STRS T/: 

Oo 

1250 LET W$=STRS DA: 
| THEN LET W5="0"+WS5 
1260 LET VS=V5+W5S: LET W5=STR$ 

MO: IF LEN W5$=1 THEN LET W3= 

"O "+Us 

1270 LET VS5=VS+WUS+STAS YB: 
LET  LS(KK,B+1)=VS+BS: LET Q 

(KK) =Q(K K)+] 

IZ2B0 TF AS>22 THEN GOTO 1310 
1290 INPUT "APAGAR QUAL 
NUMERO (MIN 1)" ;NN: TF NNc<l 
OR NN>B THEN GOTO 1290 

1300 FOR Z=NN+1 TO B: LET 

LS(KK ,Z-1)=LS(KK,Z): NEXT 

Z: LET Q(K K)=0Q(KK)-] 

1310 IF A<S>3 THEN GOTO 1160 E 


IF LEN W5= 


13420 RETURN 

1330 PRINT “Lista de Dados” [4 
'TS( KB) 

1340 PRINT AT 0,17; INVER 

BE 1;” S”; INVERSE 0;"OMAR 

“+ INVEBSE 1;"A”"; INVERSE 

0;" PAGAR ", INVENSE 1L;"M"; 


INVERSE 0; "ENU” 

1350 PRINT AT 3,0; 

1360 RETURN 

1370 LET FS=LS(KK,K2Z): 
LET ES=P S(VAL FS( TO 1)) 
+" "+PS(2 TO 3)+ ":"+ES (4 
TO 5)+":"+ESLO TO 9) 


1380 PRINT ES;" ";FS(IO 
TO 30) 

1390 RETURN 

1400 LET BS$="": LET VP=5 
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1410 INPUT “Qual o nome ? (Max 

22 letlras)”' LINE B3 

1420 LET VP=VP-1 

1430 PRINT AT VP,0;""; 

1440 INPUT "DATA SIGNIFICATIVA 

:" DA: IF DACI OR DA>31 THEN G 
OTO 1430 

1450 GOSUB 2510 


1460 LET KB=MO: GOSUB 270: IF D 
AZKB THEN GOTO 1430 
1470 LET KS=BS: GOSUB 1520: LET 


Y5=KS: RETURN 

1480 LET aS=INKEYS: 
EN GOTO 1480 

1490 FOR n=1 TO LEN k$: 
KS (n) THEN NEXT n 

1500 IF n>LEN K$ THEN GOTO 
0 

1510 LET KB=n: RETURN 

1520 LET PP=(INT (YB/100)-17)*1 
6+MO 

1530 LET K2=100: 
) 

1540 LET KS=CHAS PP+CHRS OQ+KS5: 
RETURN 

1550 IF T7<>1 THEN GoTo 1580 


IF ag=** TH 
IF aSs2> 


148 


LET QQ=FN M(YR 








































INVERSE 1;* 
M"º; INVERSE 0; "ENSAL "; INVERSE 
1J;"T”; INVERSE 0;"RIMESTRAL *; 
INVERSE 1;"A”; INVERSE 0;"NUAL 
“; INVERSE 1;ºU*; INVERSE 0;"ºN 
Ico” 


1560 PRINT AT 20,0; 


1570 LET K$="mtau”: GOSUB 14680: 
PRINT AT 20,0;2ZS5: PRINT AT 3,0 
|: LET T7/=KB: GOTO 1600 


1580 IF T7=3 THEN RETURN 

1590 LET T7/=4 

1600 RETURN 

1610 CLS : PRINT FLASH 1;AT 10 
13; "PREPARE O GRAVADOR” 


1620 IF INKEY5<>"" THEN GOTO 1 
620 

1630 SAVE "dados" DATA Q() 

1640 FOR N=1 TO 4 

1650 IF Q(N)=0 THEN GOTO 1670 
1660 FOR M=1 TO Q(N): LET OS(1) 
=LS (N,M): SAVE “dados” DATA 085 
): NEXT M 

1670 NEXT N 

1680 RETURN 

1690 CLS PRINT AT 10,5; FLASH 


1;" PREPARE O GRAVADOR” 
1700 LOAD "dados" DATA Q() 
1710 FOR N=1 TO 4d 
1720 IF Q(N)=0 THEN GOTO 1740 
17/30 FOR M=1 TO Q(N): LOAD “dad 
os” DATA 0S(): LET LS(N,M)=o0S(1 
































)J: NEXT M 
1740 NEXT N 
1750 RETURN 


115 KB$="SN”":GOSUB 1590:IF KB=1 
GOSUB 18/70 

1180 REM 

1190 N=0:A=0:B=0:KK=KB 

1200 KB=KK:GOSUB 1330 

1210 REM | 
1220 FOR VU=1l TO 14:PRINT €VU*3 
Z:NEXT:PRINT €32,""; 

1230 B=VAL (LIS (KK,0)) 

1240 IF B=0 THEN 1280 

1250 FOR N=1 TO B 

1260 KB$=LIS(KK,N) :K2=N:GOSUB 1 
410 

1270 NEXT 

1280 KB5="ADM”:GOSUB 1590:A=KB 

1290 IF A=1 THEN T7=KK:GOSUB 16 
B0:GOSUB 1490:LIS(KK,B+1) =CHRS( 
T7)+T8BS:LIS(KK,0) =MIDS (STRS (B+1L 
1,2) 

1300 IF A=2 THEN INPUT"QUE NUME 
RO" ;NN:IF NN<1l OR NN>B THEN 130 





O ELSE FOR PP=NN+1 TO B:LIS(KK, 
PP-1)=LIS(KK,PP) :NEXT:LIS(KK,0) 
=STR$S (B-1) 

1310 IF A<>3 THEN 1210 

1320 RETURN 

1330 REM 

1340 PRINT TYS(KB),"LISTA CORRE 
NTE” 
1350 
1360 


FOR Y=2 TO 14 

PRINT €Y*32 

1370 NEXT 

1380 PRINT 6480," aDICIONAR 
TAR mENU”; 

1390 PRINT €32,""; 

1400 RETURN 

1410 "OP 

1420 N2=0:BB$="" :DD$="":K3=K2 
1430 FOR N2=1 TO 4:IF MIDS(KBS, 
N2,1)="" THEN CO(N2)=0 ELSE CO( 
N2)=ASC (MIDS (KB$S,NZ2,1)) 

1440 NEXT 

1450 BBS=MIDS(PAS,CO(1)*4-3,4) 
1460 K2=16:DDS=MIDS (STRS(CO(Z)) 
,2)+" :"+MIDS (STRS (FNM(CO(3))),2 
)J+" :"+MIDS (STARS ( (FIX(CO(3)/16)+ 
17)*100+C0(4)),2) 

1470 PRINT MIDS(STR$S(K3),2);" * 
;:BBS;” ",DDS;" ";RIGHTS(KB$S,LEN 
(KB$)-4) 


dELE 








1480 
1490 


RETURN 
"ADICIONAR UMA ENTRADA 
1500 B33="" .vVvP=0 
1510 PRINT"A SER CHAMADO? (MAX 
22 LETRAS)" :-LINE INPUT B3S 
1520 VP=INT((PEEK(136)*256+PEEK 
(137)-1024)/32) 
1530 PRINT evp*32,""; 
1540 PRINT"DATA SIGNIFICATIVA 
7 nm 
1550 INPUT” DIA:";DA:IF DA<1 
OR DA>31 THEN 1530 
1560 GOSUB 2750 
1570 KB=MO:GOSUB 230:IFDA>KB 
THEN 1530 
1580 KB$=B3S:GOSUB 1630: TBS 
=KBS  : RETURN 
1590 REM 
1600 BS=INKEYS:IF BS="" 
THEN 1600 
1610 KB=INSTR(1,KBS,BS): 
IF KB=0 THEN 1600 
1620 RETURN 
1630 REM 
1640 PP=0:00=0 
1650 PP=(FIX(YR/100)-17) 
*16+MO 
1660 K2=100:00=FNM(TR) 
1670 KBS=CHRS (DA) +CHRS ( 
PPJ+CHAS (QO)+LEFTS (KBS 
+22) : RETURN 
1680 REM 
1690 IF T7=0 THEN PRINT 
"MENSAL, TRIMESTRAL, ANU 
AL OU UNICO" :KBS= "MTAU 
"-GOSUB 1590:T7=KB:GOTO 
17 20 
1700 IF T7=2 THEN T7=3: 
GOTO 1720 
1710 T7=4 
1720 RETURN 
1730 REM 
1740 N=0:P=0 
1750 OPEN"O”" 4-1," DIARIO” 
FOR N=0 TO 3 
M=VAL (LIS(N,0)) 
PRINT 6-1, LIS(N,O) 
IF M=0 THEN 1840 
1800 FOR P=1 TOM 
1810 FOR J=1 TO 4:PRINT+4-1,STRS 
(ASC(MIDS (LIS(N,P),J,1))):NEXTJ 
1820 PRINT 4-1,MIDS(LIS(N,P),5) 
1830 NEXT P 
1840 NEXT N 
1850 CLOSE t-1 
1860 RETURN 
1870 REM 
1880 N=0:P=0:M=0 
1890 OPEN"I*,4-1,"DIARIO” 
1900 FOR N=0 TO 3 
1910 LINE INPUT 4&-1,LIS(N,O) 
1920 M=VAL(LIS(N,0)) 
1930 IF M=0 THEN 1980 
1940 FOR P=1 TO 
1950 FOR J=1 TO 4: INPUT&-1,NNS: 
LIS(N,P)=LIS(N,P) +CHRS (VAL (NN$S) 
J:NEXT q 
1960 LINE INPUT 4-1,NNS:LISCN,P 
)J=LIS(N,P)+NNS 
1970 NEXT 
1980 NEXT 
1990 CLOSE 6-1 
2000 RETURN 


1760 
1770 
1780 
1790 




















































2010 'CAL. ANUAL 

2020 M4=0:A4=0 

2030 INPUT"ANO:";YR:IF YR<1753 

OR YR>29999 THEN 2030 ELSE GOSU 

B 650 

2040 GOSUB 2720:CLS 

2050 PRINT"ANO ";YR 

2060 IF P=2 THEN PRINT 4-2," ANO 
"“:YR 

2070 PRINT 4-P:KB=0:GOSUB 2150: 

PRINT4&-P 

20B0 GOSUB 2660 

2090 FOR MO=1 TO 12 

9) 
2110 
2120 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 | 

MIDS (DNS,D2*3+1,3); 
2220 NEXT 

2230 RETURN 
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115 KB$="SN”:GOSUB 1590:IF KB=1 
THEN GOSUB 1870 

1180 * LISTAR E ATUALIZAR 

1190 N=0:A=0:B=0:KK=kKB 

1200 KB=KK:GOSUB 1330 

1210 REM 

1220 FOR VU=1 TO 21:LOCATE O,UVU 
- PRINTSPACES (38); :NEXT:LOCATE O 
À 
1230 
1240 
1250 
1260 
410 
1270 


T2=5:52=0:GOSUB 2240 
IF P=0 AND INKEYS="" THEN 


NEXT 

RETURN 

REM 

X2=0:€C2=0:D2=0 

IF KB=0 THEN X2=/ 

IF P=2 THEN KB=KB+1 
PRINT f-P, STRINGS (X2,32); 
FOR D2=0 TO 6 


B=VAL (LIS(KK,0)) 

IF B=0 THEN 1280 

FOR N=1 TO B 

KBS=LIS(KK,N) :K2=N:GOSUB 1 


NEXT 

1280 KB$=" ADM" :GOSUB 1590:A=KB 
1290 TF A=1 THEN T7=KK:GOSUB 16 
80:GOSUB 1490:LIS(KK,B+1)=CHRS( 
T/)+T8BS:LIS(KK,0) =MIDS (STR$S (B+1 
| €) 

1200 IF A=2 THEN INPUT "QUAL NÚ 
MERO” ;NN:IF NN <1l OR NN>B THEN 
1300 ELSE FOR PP=NN+1 TO B:LIS( 
KK,PP-1)=LIS(KK, PP) :NEXT:LIS(KK 
(0) =STRS (B-1) 
L310 IF A<>3 THEN 
1320 RETUBN 

1330 * Imprime cabeçalho 

1440 PRINTTYS(KB),"Listade dados” 
1350 FOR Y=2 TO Z1 

1360 LOCATE 0,Y: PRINTSPACES(3B); 
1370 NEXT 

1380 LOCATE 5,23:PRINT"Adiciona 
r Deletar Menu”; 

1390 LOCATE 0,1 

1400 RETURN 

1410 " OP 

1420 N2=0:BB$="":DDS="":K3=K2 
1430 FOR N2=1 TO 4:IF MIDS(KBS, 
N2,1)="" THEN CO(NZ)=0 ELSE CO( 


1210 


PRINT 4-P, STRINGS(KB," ")+ 


N2)=ASC(MIDS (KB$,N2,1)) 

1440 NEXT 

1450 BBS=MIDS (PAS,CO(1)*4-3,4) 
1460 K2=16:DDS=MIDS (STR$S(CO(2)) 
(2)+":"+MIDS (STARS (FNM(CO(3))),2 
)+":"+MIDS (STARS ((FIX(C0(3)/16)+ 
17)*100+C0(4)),2) 

1470 PRINTMIDS(STRS(K3),2);" “; 
BBS;” ";DDS;" ";RIGHTS (KBS,LEN( 
KB3)-4) 

1480 RETURN 

1490 '* Adiciona um dado 

1500 B3$="":VP=0 

1510 PRINT"Rótulo? (max 20 letr 
as)”: LINEINPUT BIS 

1520 PRINT 

1530 REM 

1540 PRINT"Data do compromisso: 


1550 INPUT” Dia:";DA:IF DA<1 OR 
DA>31 THEN 1530 
1560 GOSUB 2750 
1570 KB=MO:GOSUB 230:IF DA>KB T 


HEN 1530 
1580 KB$=B35:GOSUB 1630: TBS=KBS 
: RETURN 
1590 ' Verif teclagem de caract 


er e compara com kb3 

1600 BS=INKEYS:IF B$="" THEN 16 
00 

1610 KB=INSTR(KBS,BS):IF KB=0 T 
HEN 1600 

1620 RETURN 

1630 ' Codifica informação 

1640 PP=0:00=0 

1650 PP=(FIX(YR/100)-17)*16+M0 
1660 K2=100:00=ENM(YR) 

1670 KB$=CHAS (DA) +CHRS (PP) +CHRS 
(00) +LEFTS (KB8, 20) : RETURN 

1680 ' verifica tipo 

1690 IF T7=0 THEN PRINT"Mensal, 
Trimestral, Anual, UÚnico":KBS= 
"MTAU” :GOSUB 1590:T7=KB:GOTO 17 
20 
1700 
O 
1710 T7=4 

1720 RETURN 

1730 ' gravar dados 
1740 N=0:P=0 

1750 OPEN "DIARIO" FOR 
S 41 
1760 
1770 
1780 
1790 


IF T7=2 THEN T7=3:GOTO 172 


OUTPUT A 


FOR N=0 TO 3 

M=VAL (LIS(N,0)) 
PRINT4AI,LIS(N,O) 

IF M=0 THEN 1840 

1800 FOR P=1 TO M 

1810 FOR J=1 TO 4:PRINT&IL, STRS( 

ASC (MIDS(LIS(N,P),J,1))):NEXT 
1820 PRINTAL,MIDS(LIS(N,P),5) 
1830 NEXT 

1840 NEXT 

1850 CLOSES1 

1860 RETURN 

1870 ' carregar dados 

1880 N=0:P=0:M=0 

1890 OPEN "DIARIO" FOR INPUT AS 
41 
1900 
1910 
1920 
1930 
1940 


FOR N=0 TO 3 

LINE INPUT4&1L,LIS(N,O) 
M=VAL (LIS(N,0)) 

IF M=0 THEN 1980 


FOR P=l TO M 


1950 FOR J=1 TO 4: INPUT4L,NNS:L 
IS(N,P)=LIS(N,P)+CHAS (VAL (NN$S)) 
“NEXT 

1960 LINE INPUT41L,NNS:LIS(N,P)= 
LIS (N, P)+NNS 


1970 NEXT 

1980 NEXT 

1990 CLOSE41 

2000 RETURN 

2010 * calendário anual 

2020 Md=0:A4=0 

2030 INPUT"Ano: ";YR:IF YR<1753 
OR YR>29999 THEN 2030 ELSE Gos 
UB 650 

2040 GOSUB 2720:CLS 

2050 PRINT"Ano ";YR 

2060 IF P=2 THEN LPRINT "Ano: * 


;: YR: LPRINT 

2070 PRINT:KB=0:GOSUB 2150:PRIN 

T:IF P=2 THEN LPRINT 

2080 GOSUB 2660 

2090 FOR M0=1 TO 12 

2100 PRINTMIDS (MN5S,M0*9-8,9): IF 
P=2 THEN LPRINT MIDS (MNS,MO*9- 
B,9) 
2110 
2120 
2120 
2130 NEXT 

2140 RETURN 

2150 ' imprime dias 

2160 X2=0:C2=0:D2=0 

2170 IF KB=0 THEN X2=7 

2180 IF P=2 THEN KB=KB+1 

PRINTAP, STRINGS (X2,32); 

FOR D2=0 TO 6 

2210 PRINT+AP, STRINGCS(KB,” ")+M 
IDS (DNS,D2*3+1,3); 

2220 NEXT 

2230 RETURN 


115 KB$ = "SN": GOSUB 1590: 
KB = 1 THEN GOSUB 1870 


1180 REM LISTAR E ATUALIZAR 
1190 N = 0:A = 0:B = O:KK = KB 


T2=5:82=0:GOSUB 2240 
IF P=0 AND INKEY$="" THEN 


IF 


1200 KB = KK: GOSUB 1330: POKE 
34,1: POKE 35,22 

1210 REM 

1220 HOME 

1230 B = VAL (LIS(KK,0)) 

1240 IF B = O THEN 1280 

1250 FOR N= 1 TOB 


1260 KBS = LIS(KK,N):K2Z = N: GO 

SUB 1410 

1270 NEXT 

1280 KBS = "ADM": GOSUB 1590:A 

= KB 

1290 IF A = 1 THEN T7 = KK: GÔ 

SUB 1680: GOSUB 1490:LIS(KK,B + 
1) = CHARS (T7) + T8S:LIS(KK,O 
) = STR$ (B + 1): GOTO 1310 
1300 IF A = 2 ANDB > O THEN 
INPUT "QUAL NUMERO? ";NN: IF NN 
< 1 OR NN>B THENIAIOO 

1305 IF A = 2 AND B > O THEN 
FOR PP = NN + 1 TO B:LIS(KK,PP 
- 1) = LIS(KK,PP): NEXT :LIS(KK 
50) = STRS (B = à) 


1310 IF A< > 3 THEN 1210 
1320 POKE 34,0: POKE 35,24: RE 
TURN 








20 APLICAÇÕES 20 





1330 REM CABECALHO 

1340 PRINT TYS(KB),"LISTA CORR 
ENTE” 

1350 REM 

1360 CALL - 958 

1370 REM 

1380 VTAB 23: HTAB 5: PRINT "[ 
AJDICIONAR  [DIJELETAR  [MJENU” 
1390 REM 

1400 RETURN 


1410 REM OP | 
NZ2 = 0:BBS = ?*:DDS = "º:RB 


1420 
3 = KZ 
1430 FOR N2 = 1 TO 4: IF MIDS 


(KBS,N2,1) = 
O: GOTO 1440 
1435 CO(NZ) = 
N2,1)) 
1440 NEXT 
1450 BBS = 

- 5,6) 
1460 K2 = 


"” THEN CO(N2) = 


ASC ( MIDS (KBS, 


MIDS (PAS,.CO(1) * 6 


16:DD5S = STRS (CO(2) 
) + ":” + STARS ( PFN M(CO(3))) 

+ ":”" + STR$ (( INT ( ABS (cO( 

3) / 16)) * SGN (CO(3) / 16) + 
17) * 100 + CO(4)) 


1470 PRINT STAS (K3):" ";BBS; 
"* "-DDS;" "; RIGHTS (KBS, LEN ( 
KBS) - 4) 


1480 RETURN 





1490 REM ADICIONAR DADOS 
1500 B38 = "":vP = 0 

1510 PRINT "TITULO? (MAX 22 LE 

TRAS)”: INPUT B38$ 

1520 REM 

1530 PRINT 

1540 PRINT "DATA DE REFERENCIA 

p” 

1550 INPUT ”" DIA:";DA: IF DA < 

1 OR DA > 31 THEN 1530 

1560 GOSUB 2750 

1570 KB = MO: GOSUB 230: IF DA 1730 REM GRAVAR MATRIZ 1980 NEXT 

> KB THEN 1530 1740 N = 0:P = 0 1990 PRINT DS;"CLOSE" 

1580 KBS = B3S: GOSUB 1630:TBS 1750 PRINT D$;"OPEN DIARIO” 2000 RETURN 

= KBS: RETURN 1755 PRINT D$S;"WRITE DIARIO” 2010 REM CALENDARIO ANUAL 
1590 REM VERIF TECLAGEM DE CA 1760 FOR N = O TO g3 2020 M4 = 0:A4 = 0 
RACT EM KBS E DEVOLVE POSICAO E 1770 M = VAL (LIS(N,0)) 2030 INPUT "ANO:";YR: IF YR < 
M KB 1780 PRINT M 1753 OR YR > 29999 THEN 2030 
1600 GET BS:KB = 0 1790 IF M = O THEN 1840 2040 GOSUB 650: GOSUB 2720: HO 
1610 FOR I =1 TO LEN(KB$S): 1800 FOR P=1 TOM ME 

IF MIDS (KB$,1,1) = B$ THEN KB 1810 FOR J = 1 TO 4: PRINT ST 2050 PRINT "ANO ";YR 

= I RS ( ASC ( MIDS (LIS(N,P),9J,1)) 2060 IF P = 1 THEN PREPARAIMPR 
1615 NEXT IF KB = O THEN 160 ): NEXT ESS 

0 1820 PRINT MIDS (LIS(N,P),5) 2070 KB = O: GOSUB 2150 

1620 RETURN 1830 NEXT 2080 GOSUB 2660 

1630 REM CODIFICAR INFORMACAO 1840 NEXT 2090 FOR MO = 1 TO lZ 

1850 PRINT DS;"CLOSE" 2100 PRINT MIDS (MNS,MO * 9 - 

1640 PP = 0:00 = 0 1860  RETUABN 8,9) 

1650 PP = ( INT (YR / 100) - 17 1870 REM CARREGAR DADOS 2110 T2 = 5:82 = 0: GOSUB 2240 
) * 16 + MO 1880 N = 0:P = 0:M = 0 2120 IF P = O THEN GET BS 
1660 KZ = 100:00 = FN MYR) 1890 PRINT DS;"OPEN DIARIO" 2130 NEXT 

1670 KBS = CHARS (DA) + CHRS ( 1895 PRINT DS;"READ DIARIO” 2140 RETURN 

PP) + DCHRS (QQ) + JLEFTS (KBS, 1900 FORN = O TOJ3 2150 REM IMPRIME DIAS 

22): RETURN 1910 INPUT LIS(N,0) 2160 X2 = 0:C2 = 0:D2 = 0 

1680 REM INDICA TIPO 1920 = VAL (LIS(N,0)) 2170 IF KB = O THEN HZ =? 
1690 IF T7 = O THEN PRINT "ME 1930 IF M = O THEN 1980 2180 IF P = 2 THENKB=KB+ãI 
NSAL, TRIMESTRAL, ANUAL, UNICO” 1940 FOR P = 1 TOM 

“KBS = "MTAU”: GOSUB 1590:T7 = 1950 FOR J = 1 TO 4: INPUT NNS 2190 PRINT SPC( X2) 

KB: GOTO 1720 “LIS(N,P) = LIS(N,P) + CHARS ( 2200 FOR D2 = 0 TO 6 

1700 IF T7 = 2 THEN T7 = 3: G0 VAL (NNS)): NEXT 2210 PRINT SPC( KB); MIDS (DN 
TO 1720 1960 INPUT NNS:LIS(N,P) = LIS( 5S,D2 * 3 + 1,3); 

17210 T7 = 4 N,P) + NNS 2220 NEXT 

1720 RETURN 1970 NEXT 2230 RETURN 











PARA O TK- 


Os programas elaboradores de gráfi- 
cos constituem uma das ferramentas 
mais poderosas e versáteis para os usuá- 
rios de microcomputadores. E preciso 
notar, entretanto, que existem diversos 
tipos de programas gráficos. Os mais co- 
muns permitem traçar gráficos de aná- 
lise de dados, como histogramas, cur- 
vas, segmentos circulares (''pizzas””) 
etc., e têm muitas aplicações em educa- 
ção, ciências e negócios. 

Outro tipo de muita aceitação con- 
siste nos programas “desenhistas”, que 
fazem desenhos livremente sobre a te- 
la, usando o teclado ou um dispositivo 
de entrada gráfica ( “mouse” ou joy- 
stick) para deslocar um cursor gráfico 
sobre o video. Esses programas, dis- 
poníveis para a maioria dos microcom- 
putadores, principalmente para os que 
têm boa capacidade gráfica e de impres- 
são em cores (Spectrum, Apple, MSX, 
IBM, PC etc.), contam com um grande 
número de recursos, tais como: figuras 
geométricas pré-programadas (círculos, 
elipses, retângulos etc.); “pincéis” de 
várias espessuras; cores para desenhar 
e pintar; dispositivos para “cortar € 
colar” (retirar uma parte de um desenho 
e colocar em outro ponto da tela) e “ca- 
rimbar"” (copiar uma parte de um de- 
senho em outro ponto da tela); recur- 
sos para escrever títulos e textos com 
letras de diversos estilos e tamanhos 
etc. Programas como esses constituem 
uma verdadeira “paleta eletrônica”. Al- 
guns deles são bem conhecidos; € o ca- 
so de Paint, Paini-Brush, Dr. Halo, 
Apple-Paint etc. 

O programa apresentado aqui perten- 
ce a essa categoria, embora seja muito 
mais simples. Ele permite a elaboração 
de letreiros e gráficos, empregando o 
conceito de cursor gráfico. Os recursos 
de programação de que ele dispõe não 
são muito complexos, e consistirão num 
bom aprendizado para quem quiser co- 
nhecer os “truques”” básicos usados em 
programas do mesmo tipo. 


COMANDOS SIMPLES 





A filosofia de operação do programa 
é simples: ao ser inicializado, o progra- 
ma entra em modo gráfico de baixa re- 





solução (GR) e coloca um cursor bran- 
co no canto superior esquerdo da tela. 
Ao pressionar as teclas correspondentes 
a cada comando, o usuário pode deslo- 
car o cursor sobre a tela, trocar sua cor, 
desenhar com a cor selecionada, apagar 
traços, desenhar blocos retangulares 
(preenchidos com cor) ou molduras (re- 
tângulos vazios) etc. Existem também 
comandos para escrever um texto em 
qualquer ponto da tela, em vídeo dire- 
to ou vídeo inverso. 

Compõe-se, assim, uma ilustração 
que depois pode ser fotografada direta- 
mente da tela — ou copiada —, em pre- 
to e branco, em uma impressora gráfi- 
ca. Portanto, além de ser uma diversão 
para quem quer apenas exercitar os seus 
dotes criativos na pintura, O programa 
é muito bom para a produção de dispo- 
sítivos coloridos destinados a ilustrar pa- 
lestras, aulas, apresentações etc. 


O cursor pode se movido pela tela, 


usando-se as teclas (il + e —. Para 
mudar sua cor, pressiona-se a tecla €, 
e logo em seguida digita-se um dos nú- 
meros compreendidos entre O e 6 (cada 
um deles correspondendo a uma das co- 
res disponíveis). 

Para traçar uma reta com a cor do 
cursor, pressiona-se a tecla < FIRE > e 
movimenta-se o cursor na direção dese- 
jada. Para parar de traçar, aciona-se 
< FIRE> novamente. Assim, esse sis- 
tema de operação serve ainda para apa- 
gar trechos de um desenho: basta sele- 
cionar a mesma cor do fundo para O 
cursor, e deslocá-lo sobre a área que de- 
ve ser apagada. No TK-2000, o joystick 
pode ser usado para movimentar o cur- 
sor e também para traçar retas, pois seu 
acionamento corresponde às teclas do 
cursor e à tecla <FIRE>. 

O programa tem oito comandos ape- 
nas (no final deste artigo vamos dar al- 
gumas “dicas” sobre como expandir O 
programa, adicionando outros tipos de 
comandos). Eis aqui os citados coman- 
dos, em ordem alfabética: 


B - traça uma borda na tela, na cor 
previamente indicada. 

C - muda a cor do cursor. Um núme- 
ro de O a 6 será, então, digitado. 

F - preenche toda a tela com a cor de- 


signada pelo cursor. 





EPL D O TO ci e De e di UU 


PALETA ELETRÔNICA 
2000 


A imaginação ao poder! Siga o lema das 
barricadas parisienses de 1968, 

e transforme seu vídeo em uma tela de 
pintura, executando o programa 

deste artigo no velho e fiel TK-2000. 


I - passa a aceitar um texto qualquer 
digitado pelo teclado, escrevendo- 
o em vídeo inverso (letras escuras 
sobre fundo claro). O cursor grá- 
fico não se desloca, permanecen- 
do na posição inicial. Pressionan- 
do-se a tecla < RETURN>, o sis- 
tema volta ao modo gráfico. 
retorna o cursor à sua posição de 
partida (canto superior esquerdo 
da tela) e limpa o video. 

traça uma moldura (retângulo va- 
zio) com a cor e posição indicadas 
pelo cursor (o canto superior es- 
querdo do retângulo ficará posi- 
“onado na localização do cursor). 
O programa solicita o comprimen- 
to ea largura do retângulo (em pi- 
xels), que devem ser digitados se- 
parados por uma virgula. 

traça um quadro (retângulo cheio), 
com a cor e posição indicadas pe- 
lo cursor. O restante funciona co- 
mo no caso do comando M. 
passa a aceitar um texto qualquer 
digitado pelo teclado, escrevendo- 
o em vídeo direto ou normal (ou 
seja, letras claras sobre fundo es- 
curo). O restante funciona do mes- 
mo modo que no comando 1. 


Depois que um texto for colocado em 
algum ponto da tela, deve-se evitar pas- 
sar com o cursor sobre ele; do contrá- 
rio, ele será apagado. 


COMO FUNCIONA O PROGRAMA 


O programa é dividido em quatro 
grandes seções de processamento: 

A seção que vai da linha 50 até a h- 
nha 60 inicializa todos os parâmetros 
usados no programa e prepara ao mes- 
mo tempo a tela inicial. 

A seção que vai da linha 100 à 175 
aceita comandos através do teclado e ve- 
rifica qual foi a tecla pressionada. Se for 
um dos comandos válidos, ela modif- 
cará os parâmetros internos do progra- 
ma, ou chamará a rotina encarregada de 
executar a função desejada. 

A seção que vai da linha 180 à 200 
serve para testar se os limites da tela fo- 
ram ultrapassados pelo movimento do 
cursor, e traça no vídeo um quadradi- 
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nho na cor vigente, na posição indica- 
da (coordenadas do cursor). 
Finalmente, as linhas 500 a 900 con- 
têm diversas sub-rotinas de trabalho, 
que explicaremos mais adiante. 
Comecemos com a primeira seção 
(não a execute ainda; caso contrário, 
ocorrerá uma mensagem de erro): 


50 GR: COLOR = O 

55 LET EL = 0: X= 0: 7T=0 

S6 LET QX = 39: OY = 39: GOSUB 
B15 

BO LET XL = 2: TL= )!: CLSuy: 
C = 3: GOSUB 196 


A linha S0 estabelece o modo gráfi- 
co de baixa resolução (GR) bem como 
a cor inicial (preto) do cursor. A linha 
55 inicializa as variáveis FL (um indica- 
dor lógico, que mostra se o modo de de- 
senhar está “ligado” ou “desligado '), 
X e Y (coordenadas correntes do cursor; 
note que X=0e Y=0 correspondem, no 
TK-2000, à posição no canto superior 
esquerdo). 

A linha 56 define, por sua vez, as va- 
riáveis QX e QY, necessárias para a 
atuação da rotina da linha 815 (mostra- 
da mais adiante num dos segmentos do 
programa), que é responsável por tra- 
çar um bloco colorido. Quando as va- 
riáveis QX e QY são igualadas a 39, co- 
mo neste caso, isso significa que a tela 
será inteiramente pintada com a cor cor- 


rente do cursor (na primeira vez será 
preto, ou COLOR = 0). 

A linha 60 define as variáveis XL e 
YL, que servem para armazenar as últi- 
mas coordenadas do cursor, atingidas 
antes das correntes (X e Y), bem como 
a última cor CL. Ainda nessa linha, é 
definida a cor inicial do cursor (C=3), 
e a sub-rotina da linha 196 é chamada 
para traçar esse cursor em sua posição 
inicial (0,0). 

Digite agora a seção de entrada e teste 
(sem, contudo, apagar a seção de entra- 
da anterior): 


100 
105 


GET AS: A = 
IF AS$="C” THEN 
GOTO 100 
IF AS="Q" 
GOTO 100 
IF AS="M” 
GOTO 100 
IF AS="T” 
GOTO 100 
125 IF AS="I' 
GOSUB 500: 
IF AS$="Rº 
55 

IF AS="B” 
= 18H 
B15: X 
100 

IF AS=" 
= 0: &X 
B15: X 
100 


ASC (AS) 


GOSUB 6B50: 


110 THEN GOSUB 600: 


115 THEN GOSUB 650: 


120 THEN GOSUB 500: 

THEN INVERSE: 
GOTO 100 

130 THEN HOME: GOTO 
THEN COLOR = C:TY 
O: Y = 0: GOSUB 

XL: Y = YL: GOTO 


140 


HH 


" THEN COLOR = C:TY 
O: Y = O: GOSUB 
NL: TT = TYL: GOTO 


145 


+] 


Wo 


E 
a" 
« 
E, 

n 
“z 
"e 
"z 
"z 
“a 
“a 


EE. 
4 
ER. 
Es 
Es. 
"4 
Es 
EE 
Ea 
1 
Ea 
Es. 








150 ZIF A = 112 THEN T = YT-l: 
GOTO 190 

155 IF A = 113 TREN T = Tri: 
GOTO 190 

160 IF A = 8 THEN X = X-1l: GOTO 
180 

165 IF A = 21 THEN X = X+1l: GO- 
To 180 


166 IF A <> 46 THEN GOTO 100 


170 IF FL = 1 THEN FL = O: GOTO 
100 

172 IF FL = O THEN FL = 1 

175 GOTO 100 


A linha 100 usa um comando GET 
para permitir uma pressão à tecla e ar- 
mazenar o caractere correspondente em 
A$. Ao mesmo tempo, o valor ASCII 
desse caractere é determinado pela fun- 
ção ASC e guardado em A. 

Em seguida, as linhas 105 a 145 veri- 
ficam se o caractere digitado é C, QO,M, 
T,B,R, lou F. Em caso positivo, elas 
tomam as providências necessárias pa- 
ra executar a função perdida, e retor- 
nam à linha 100 para receber mais um 
comando. 

Essa estrutura de programa caracte- 
riza, de fato, um laço sem fim (conhe- 
cido, neste caso, como laço de entrada), 
que não chega a ser um laço de espera 
verdadeiro, pois o programa ficará pa- 
rado na linha 100 enquanto nenhuma te- 
cla for pressionada, 

As linhas entre 150 e 175 servem pa- 
ra verificar se uma das teclas de movi- 
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mentação do cursor foi pressionada. 
Aqui, temos que usar o valor ASCII pa- 
ra fazer a averiguação, pois não existe 
representação gráfica da tela para os 
cursores. Se a tecla tiver sido pressiona- 
da, o parâmetro Y (coordenada vertical 
do cursor) será diminuído de uma posi- 
ção, € O programa saltará, então, para 
a linha 190, que verifica se os limites da 
tela foram ultrapassados. Transforma- 
ções semelhantes de X e Y são feitas, 
conforme a tecla de cursor seja pressio- 
nada. Mas não execute o programa 
ainda. 


COMECE A DESENHAR 





Adicione as linhas abaixo; 


180 IF X &4 O THEN X = O 

182 IF X > 39 THEN X = 39 

185 GOTO 196 

190 IF Y «< O THEN Y = O 

195 IF Y > 39 THEN T=3S 

196 IF FL = 1 THEN GOTO 198 

197 COLOR = CL: PLOT XL, YL 

198 LET CL = SCRN (X,Y): COLOR 
= C: PLOI X,1 

199 LET XL = X: YL=T 

200 GOTO 100 


As linhas 180 a 185 avaliam se X ul- 
trapassou ou não a borda da tela, 
mantendo-o nesse limite, caso isso tenha 


acontecido. As linhas 190 e 195 fazem 
o mesmo com +%. 

A linha 196 verifica se o cursor está 
em modo de desenho, Se estiver, a linha 
197 traçará o cursor, com a cor CL (úl- 
tima cor encontrada), na posição (XL, 
YL). O programa prosseguirá então pa- 
ra a linha 198, que testa a cor do pixel 
em X, Y, armazena-o em CL, e traça fi- 
nalmente o pixel em X e Y, usando a cor 
E 

Se esse procedimento, aparentemen- 
te complexo, não for aplicado, toda vez 
que o cursor for deslocado deixará um 
“buraco” de cor diferente na posição 
anterior. 

Por fim, nas linhas 199 e 200, são 
usados os valores das variáveis XL e YL, 
e o programa retorna à linha 100, pon- 
to de partida desse segmento, para mais 
uma “rodada” de entrada. 

Uma vez concluídos esses preparati- 
vos, podemos adicionar as rotinas de 
trabalho do programa: 


500 
510 


LET YT = Y/2: XT = 
HTAB XT: VTAB YT 


A+I 


515 GET AS: IF ASC (AS) = 13 
THEN NORMAL: RETURN 

516 IF ASC (AS) = 8 THEN XT = 
XT-1: GOTO 510 

220 PRINT AS: XT = XT+1 

52E GOTO 510 

600 LET TY = O: GOTO 750 

650 LET TY = 1 






750 HTAB 1: VTAB 23 

B00 INPUT "COMPRIMENTO, LARGURA 
:":QX,QT 

815 IF TY = 1 THEN GOTO B40 

820 FOR 1I = YT TO Y+QY 

830 HLIN X,X+QX AT I 

835 NEXT I: CL = CC: GOTO 900 

B40 HLIN X,X+OX AT Y: HLIN 

X.X+HQOX AT Y, Y+QY 

LET CL = €: GOTO 900 

HTAB 1: VTAB 23: INPUT 

(0-60) :";C 

IF C<0O OR C>7 THEN GOTO 850 

860 COLOR = C: PLOT X,Y 

900 HTAB 1: VTAB 23: PRINT SPC 

(39) : RETURN 

END 


847 


850 "COR 


B55 


999 


A sub-rotina que vai da linha 500 à 
linha 525 responde aos comandos Le T 
e serve para receber caracteres pelo te- 
clado (linha 515) e colocá-los na tela, a 
partir da última posição do cursor de 
texto. 

As variáveis XT e YT correspondem 
as posições de tabulamento de texto, nas 
posições HTAB e VTAB, que são cal- 
culadas a partir da localização do cur- 
sor gráfico no momento (X e Y). O ca- 
ractere é impresso pelo comando 
PRINT na linha 520, onde também é in- 
crementado o cursor de texto (XT). 

Ao mesmo tempo, a entrada de um 
comando <RETURN> (linha 515, 
com código 13) encerra a sub-rotina e . 
volta para a alça de espera. O código 





8, por sua vez, corresponde ao 
comando BACKSPACE no mi- 
cro TK-2000 e faz com que o 
cursor recue uma posição, apa- 
gando o caractere escrito. 

A sub-rotina que vai da linha 
600 à linha 847 é um procedi- 
mento universal para traçar re- 
tângulos, sejam eles coloridos ou 
não. Ela serve, portanto, para 
executar os comandos B, R, Q e 
M (os parâmetros adequados pa- 
ra O caso são fixados nos IF das 
linhas 105 a 145). 

A variável TY serve para assinalar se 
o retângulo é cheio ou vazio. A linha 800 
pergunta as suas dimensões, no caso dos 
comandos Qe M, e à linha 810 cabe in- 
vestigar se ele não excede os limites da 
tela. 

Finalmente, a rotina que vai de 850 
a 900 muda a cor do cursor. Na linha 
900, é apagada a última linha de texto 
da tela, de modo a prepará-la para o 
próximo comando. 


INCREMENTANDO... 


Execute agora, com todo o cuidado, 
o programa completo e dê asas à sua 
imaginação. Entretanto, não esqueça de 
gravá-lo antes em fita. 

Com um pouco de criatividade e al- 
gum esforço de programação, não é di- 
ficil aumentar a utilidade do programa, 
adicionando-lhe novos comandos. Pa- 
ra isso, basta inserir uma nova linha IF 
na série de linhas desse tipo existente en- 
tre as linhas 100 e 165, verificando se 
a nova tecla foi pressionada ou não, € 
desviar O processamento com um co- 
mando GOSUB para a sub-rotina que 
fará a tarefa. 

Eis aqui algumas sugestões de exten- 
são do programa: 


sub-rotina para traçar retas de uma 
só vez (marque os pontos inicial e fi- 
nal da reta, com o cursor, é pressione 
< ENTER > para acionar a 

rotina). 

sub-rotina para copiar blo- 

cos de um lugar para outro. 
sub-rotina para apagar um 

bloco retangular inteiro da 

tela, reconstituindo a cor de 

fundo, 

rotinas para gravar telas em 

fita e carregá-las de volta à 

tela (leia a tela gráfica com comandos 
POKE). 

rotinas para criar uma biblioteca de 
“icones” (pequenos desenhos ou mo- 
tivos gráficos), que podem ser copia- 
dos em qualquer ponto da tela. 








o A 
TV VERSUS 
MONITORES 


“Monitores ou televisores? Se você tem 
dúvidas a respeito do vídeo 

Ideal para o seu computador, leia este 
artigo, onde são abordadas as 
diferenças entre os dois aparelhos. 


Componente essencial para a opera- 
ção dos microcomputadores, a tela de 
video constitui o principal canal de co- 
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municação entre O usuário e a máqui- 
na. Além disso, é o video que mantém 
visível o registro de tudo o que é digita- 
do no teclado. Sofisticado e sensivel, es- 
se equipamento eletrônico deve ser bem 
selecionado no momento da compra, 
pois o seu desempenho influencia dire- 
tamente o da máquina. 

Existem basicamente duas opções de 
saida de video para os microcomputa- 
dores: o uso direto de um aparelho de 
TV (em cores ou em preto e branco), ou 
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um monitor de video (que também po- 
de ser monocromático ou colorido). 
Muitas máquinas já vêm equipadas com 
um monitor de video padrão, que difi- 
cilmente pode ser trocado. Se o seu com- 
putador é desse tipo, nada resta a fazer. 
Caso contrário, vale a pena ler as linhas 
a seguir. Elas explicam como funciona 
um desses equipamentos e como o com- 
putador controla a saída de vídeo. 
Embora existam muitas maneiras di- 
ferentes de passar informações do com- 








putador para a tela, os diversos tipos de 
vídeo contam com um dispositivo espe- 
cialmente destinado para isso: é o tubo 
de raios catódicos, conhecido por sua si- 
gla em inglês, CRT (Cathode-Ray Tu- 
be). Os tubos de raios catódicos (chama- 
dos também de cinescópios) funcionam 
com base no fenômeno da fosforescên- 
cia, ou luminosidade provocada por fei- 
xes de elétrons em certas substâncias 
químicas, como fósforo. 

Um tubo de raios catódicos consiste 
em um invólucro de vidro em forma de 
cone ou pirâmide, em cujo interior se 
produz vácuo. Em uma de suas extre- 
midades é montado um canhão de elé- 
trons (um filamento aquecido, emissor 
de elétrons). Uma vez liberados, os elé- 
trons compõem uma espécie de nuvens 
ao redor do filamento; eles são então 
acelerados e aglomerados em forma de 
feixe, para poder bombardear a tela com 
uma certa velocidade. Essa função é rea- 
lizada por anéis e placas metálicas dis- 


postas ao longo do tubo, que são eletri- 
ficadas — positivamente, para acelerar 
os elétrons, e negativamente, para 
obrigá-los a constituir um fino feixe, 
que, ao atingir a tela, produzirá um pon- 
to de luz. 

Para criar imagens na tela, é neces- 
sário fazer esse ponto de luz se deslocar 
em várias direções sobre a camada de 
fósforo. Isso se dá através de dois pa- 
res de placas, dispostas em ângulo reto: 
são as placas defletoras, que realizam 
sua função por meio de voltagens elé- 
tricas; estas, por sua vez, atraem ou re- 
pelem o feixe nas direções horizontal e 
vertical. 

Os aparelhos de TV e a maioria dos 
monitores de vídeo criam imagens e tex- 


tos empregando a técnica de varredura. 
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Nesta, um sinal eletrônico especial é 


aplicado às placas defletoras, de modo 
a o ponto de luz percorre todo o vi- 
deo a grande velocidade, em um movi- 


mento de ziguezague. Isso permite for- 
mar na tela entre quinhentas e 625 linhas 
(dependendo, evidentemente, do padrão 


" adotado), em cerca de 1/60 de segundo. 
* Esse padrão de varredura é constante- 
mente repetido, 


Para produzir uma imagem ou tex- 
to, portanto, basta modular a intensi- 
dade do feixe, ou seja, variar a volta- 
gem do canhão de elétrons, de modo a 
lizá-lo e desligá-lo em determinados mo- 
mentos. Assim, por exemplo, os carac- 
teres podem ser criados por meio de 

pontinhos acesos. Portanto, tudo o que 
o o controlador de vídeo do computador 


precisa fazer é enviar esse sinal de inten- 


sidade ao CRT. 

Alguns tipos de monitores especiais 
para micro formam imagens ou carac- 
teres utilizando a modulação das placas 
defletoras. Embora essa técnica produ- 
za imagens de excelente definição e qua- 
lidade, uma boa velocidade de exibição 


“somente pode ser obtida a custos muito 


altos. Na verdade, o CRT de varredura 
gera imagens complexas de maneira 
mais barata e rápida. 





O uso da técnica de varredura para 
gerar imagens é baseado em uma pro- 
priedade da visão humana, que, em ou- 
tras circunstâncias, poderia ser conside- 
rada um defeito. O olho humano retém 
uma imagem na retina por cerca de 1/25 
de segundo. Como a maioria dos tubos 
de raios CRT é capaz de varrer toda a 
tela em cerca de 1/60 de segundo, isto 
significa que uma nova imagem, ou 
“quadro”,aparece mais rapidamente do 
que o olho pode perceber. Assim, vemos 
na tela uma imagem que se mantém, ou 
se move, sem piscar. Se nossos olhos ti- 
vessem uma capacidade de retenção de 
1/100 de segundo, ou menos, a imagem 
gerada em um televisor pareceria piscar 
intoleravelmente. 





Esse princípio vale tanto para televi- 
sores em preto e branco (monocromáti- 
cos), quanto para Os que transmitem 
imagens coloridas. A única diferença en- 
tre os CRT dos dois tipos é que os apa- 
relhos monocromáticos têm apenas um 
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canhão eletrônico e uma variedade de 
fósforo na tela, enquanto os equipamen- 
tos coloridos dispõem normalmente de 


três canhões e três espécies de fósforo 


(existe ainda um tipo de CRT colorido 
que possui apenas um canhão que dis- 
para três feixes de elétrons). 

A cor é produzida da seguinte manei- 
ra: os feixes eletrônicos ativam os fós- 
foros, que se iluminam, assumindo, ca- 
da um, uma cor diferente (azul, verme- 
lho ou verde). 





Monitor ou televisor, monocromáti- 
co ou em cores, o vídeo é preparado pa- 
ra aceitar três tipos de sinal de entrada. 
O primeiro deles, o sinal padrão de ra- 
dioemissão, é usado por aparelhos de te- 
levisão; ele produz a imagem convencio- 
nal de TV na tela e é conhecido por RF 
(abreviatura de radiofreguência, usual- 
mente na faixa VHF). 

Chamado de vídeo composto, O se- 
gundo tipo de sinal é utilizado pela 
maioria dos monitores, embora alguns 
aparelhos de TV também tenham uma 
entrada de vídeo composto já embuti- 
da. Esses sinais contêm a modulação de 











intensidade para os feixes eletrônicos, 
além de pulsos de sincronização. 

Finalmente, existe o sinal RGB, cu- 
jo nome vem das iniciais das três cores: 
Red, Green, Blue (vermelho, verde e 
azul, em inglês). Ele constitui a forma 
mais direta e precisa de entrada de co- 
res. Neste caso, cada canhão eletrônico 
é alimentado por informações acerca da 
cor correspondente (há, porém, moni- 
tores monocromáticos capazes de acei- 
tar sinais RGB, transformando-os em 
níveis de intensidade, também chama- 
dos de niveis de cinza). 

O sinal de vídeo composto é interme- 
diário, em qualidade e flexibilidade, en- 
treo RF eo RGB. O sinal RF, em últi- 
ma instância, passa por uma série de 
amplificações e transformações, antes 
de ser convertido em um sinal de video 
direto. Portanto, ele é de menor quali- 
dade e definição, pois, quanto maior for 
o número de estágios intermediários, 
maiores serão as distorções e interferên- 
cias sofridas por ele. 





LARGURA DE FAIXA 


Existem razões interessantes, mas tec- 
nicamente complicadas, para o fato de 
um televisor não possibilitar o mesmo 
grau de definição de imagem na tela que 
um monitor de vídeo. O elemento dife- 
renciador é, aqui, a chamada largura de 
faixa (bandwidth, em inglês), que é a di- 
ferença algébrica entre as frequências 
máxima e mínima de sinal, às quais O 
dispositivo eletrônico e o CRT podem 
responder sem perda apreciável de inten- 
sidade (ou ganho). Do mesmo modo, a 
largura de faixa é o principal parâme- 
tro a determinar a qualidade ou resolu- 
ção de imagem. 

Um aparelho de TV, por exemplo, 
não aceita sinais que requeiram uma lar- 
gura de faixa maior do que 5,5 MHz 
(megahertz, ou | 000 000 de oscilações 
por segundo). Essa faixa funciona bem 
em um vídeo de 32 ou quarenta colunas; 
neste último caso (quarenta colunas), 
porém, os caracteres tendem a tornar- 
se indefinidos ou “borrados” (é que essa 
dimensão de vídeo exige, normalmente, 
uma largura mínima de 10 MHz). 

Os monitores de vídeo são projetados 
especificamente para processar faixas de 
tal magnitude. Entretanto, é necessá- 
rio que o computador tenha uma saída 
de vídeo composto, em vez de uma RF 
(algumas vezes ambas estão presentes, 
como é o caso dos micros da linha 
MSX). Os modelos da linha Sinclair, 
por exemplo (ZX-81 e Spectrum), têm 
saídas somente para RF. 

Quando falamos da qualidade da 


imagem na tela, estamos nos referindo 
à resolução (ou definição de imagem) e 
à separação de cores. Infelizmente, qua- 
se sempre as duas características são an- 
tagônicas, ou seja, a presença de mui- 
tas cores implica menor definição, pois 
a largura de faixa tem que ser dividida 
entre as fregiiências presentes nos três 
canhões. Assim, um monitor monocro- 
mático produz uma definição melhor do 
que os tubos cromáticos. 

Em uma tela normal de vídeo, de qual- 
quer espécie, existem cerca de 360 000 
pontos de fósforo. No caso de uma tela 
em cores, 120 000 desses pontos serão 
vermelhos; 120 000, verdes, e 120 000, 
azuis. Portanto, a resolução da imagem 
será três vezes menor do que a de um 
tubo monocromático, 

Para muitas aplicações, como o pro- 
cessamento de textos, o monitor mono- 
cromático é a opção natural, pois força 
menos os olhos do usuário. A combina- 
ção mais frequente é verde sobre fundo 
preto. O vídeo inverso, ou seja, carac- 
teres pretos sobre fundo branco ou de 
cor clara, é menos frequente, pois pro- 
voca maior cansaço visual. 

É bom lembrar, aliás, que a maioria 
das pesquisas a respeito dos efeitos do 
video sobre a saúde não conseguiram de- 
monstrar a nocividade do CRT. 

Os efeitos maléficos são geralmente 
causados por outros fatores, como bri- 
lho refletido na tela, cores inadequadas, 
caracteres imprecisos. Uma tela de TY, 
entretanto, : pisca imperceptivelmente 
— embora mais que a de um monitor 
—, O que pode provocar dores de cabe- 
ça e problemas visuais. 

E importante notar ainda que a defi- 
nição de imagem não depende apenas do 
CRT e dos seus circuitos de controle, 
mas também do hardware do computa- 
dor. Os caracteres são formados por 
“células” ou matrizes de pontinhos de 
5x 7,7 x 9,0u9 x 9, conforme a 
qualidade do micro. Combinada com a 
largura de faixa do monitor, essa con- 
figuração pode produzir caracteres de 
pequena ou de grande resolução. 

Por outro lado, embora o ideal fos- 
se associar a cada pontinho luminoso na 
tela um bit ou um conjunto de bits na 
memória do computador (no caso de in- 
formação em cores são necessários de 
três a sete bits), esta seria uma solução 
pouca prática e muito cara. Assim, nor- 
malmente, um ou mais bytes da RAM 
são associados a caracteres (matrizes de 
pontinhos) e não a pontinhos indivi- 
duais, e O circuito gerador de video do 
computador faz o resto do trabalho, uti- 
lizando uma tabela interna de caracte- 
res (que pode ser alterada em alguns mi- 
cros, como no Sinclair). 
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Os dois fatores mais Importantes a se- 
rem considerados quando se deseja com- 
prar um vídeo são: o tipo de computa- 
dor ao qual ele deve ser acoplado, e as 
aplicações a que ele está destinado. Em- 
bora a tela seja um elemento importan- 
te do sistema, ela depende do tipo de 
hardware de vídeo do computador. Se 
a capacidade gráfica do micro é pobre, 
não adianta comprar um monitor de al- 
tissima resolução, que ela não vai me- 
lhorar: você estará jogando dinheiro fo- 
ra. Portanto, é preciso comprar o vídeo 
mais adequado para aquilo que o com- 
putador tem a oferecer. 

Ao mesmo tempo, é importante tam- 
bém levar em conta a função para a qual 
o computador está sendo destinado. As- 
sm, O monitor monocromático é a so- 
lução mais adequada quando se procu- 
ra uma melhor relação custo/benefício 
em aplicações nas quais a cor não é um 
pré-requisito. Se, ao contrário, é neces- 
sário um padrão de cor de alta qualida- 
de, então um bom monitor RGB deve 
ser considerado, embora a maioria dos 
micros pessoais e domésticos não preci- 
se de nada mais sofisticado do que um 
monitor de vídeo composto. 

Jogos e programações pouco comple- 
xas requerem apenas um aparelho de TV 
como saida de video. Evidentemente, a 
maioria dos jogos aparece de forma 
muito melhor em um monitor em cores: 
entretanto, quase todos eles são progra- 
mados em função das limitações dos te- 
levisores. Além disso, o monitor pode 
ser uma má escolha com relação a ou- 
tros aspectos. Por exemplo, normalmen- 
te os monitores de vídeo não têm saída 
sonora, pois são fabricados para o mer- 
cado profissional. Ora, essa caracteris- 
tica tem importantes implicações, pois, 
de modo geral, os jogos mais sofística- 
dos e interessantes são programados 
com efeitos sonoros. 

Também não é recomendável usar te- 
levisores baratos ou muito antigos. Em 
primeiro lugar, os circuitos eletrônicos 
(alguns ainda usando válvulas) podem 
não ser compatíveis com a saida analó- 
gica de vídeo dos computadores. Em se- 
gundo lugar, defeitos que não causam 
grande impacto sobre a qualidade da 
imagem de TV — como o “estouro” da 
varredura nas margens da tela, ou a 
acentuação de uma cor sobre as outras 
— afetam negativamente tanto o texto 
como as imagens geradas pelo compu- 
tador. Neste caso, pode sair muito mais 
caro tentar reparar o velho aparelho 
com defeito do que comprar um monti- 
tor ou um televisor novos. 
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Participe deste novo jogo de INPUT e 
viaje para o mundo mágico de 

Las Vegas, acionando a manivela de 
uma máquina caça-niqueis que 

não vai deixá-lo de bolsos vazios. 


Atualmente, já é possível substituir 
os velhos caça-níqueis mecânicos por 
programas de microcomputadores, on- 
de a tela é usada para mostrar as rodas 


com os desenhos de frutas. E exatamen- 
te isso que faremos neste e nos próximos 
artigos de INPUT. 

O jogo desempenha as funções carac- 
terísticas de um caça-níqueis real — ou 
seja, prender, apostar e empurrar. As 
rodas móveis com os desenhos de fru- 
tas são representadas por meio de grá- 
ficos animados. 

Como se não bastasse, ele tem a van- 
tagem de poupar o jogador de perder 
grandes quantias em dinheiro para es- 
ses bandidos de um braço só — como 


z UTILIZE TODA A CAPACIDADE 

GRÁFICA DO SEU MICRO 
EE AS ENGRENAGENS DA MÁQUINA 
E | MONTANDO O CACA-NÍQUEIS 
(= “AS INSTRUÇÕES 


são conhecidos os caça-niqueis em sua 


terra natal, os Estados Unidos. Em com- 
pensação — já que ninguém é perfeito 
—, O jogador não ganha nenhum tos- 


tão. Para começar, consulte a seção de- 
dicada a seu micro. 


Não se esqueça, entretanto, de gra- 
var a primeira parte do programa, apre- 
sentada neste artigo, antes de passar à 
execução da segunda parte. O progra- 
ma não funciona neste estágio, embora 
alguns microcomputadores mostrem O 
aspecto básico da tela gráfica. 














US BLOCOS GRÁFICOS 





As linhas 140 a 150 contêm os briês 
responsáveis pelos blocos usados para 
desenhar as frutas do caça-níqueis. As 
instruções coloridas devem ser digitadas 
diretamente por meio de códigos de con- 
trole, de modo a economizar memória. 


Para escrever essas linhas, entre no 
“modo estendido” (CAPS SHIFT + 
SYMBOL SHIFT) e pressione a tecla re- 
lativa à cor desejada. A seguir entre no 
modo gráfico (CAPS SHIFT e 9) e di- 
gite as letras da listagem. 


10 LET HFLAG=0: POKE 23658,8B: 
RESTORE 20: GOSUB 860 
20 DATA 14,91,.31,31531,15,3;1 
156,252,252,252,2452,246, 224, 
192 
30 DATA 49,42,51,42,50,255, 
255,255,152,84,216,84,84,255, 
255,255 
40 DATA 3,4,8,28,62,62,62,26, 
28,190,125,62,28,0,0,0 
50 DATA 0,0,16,28,15,7,3,0,4, 
12,26,56,248,240,224,0 
60 DATA 0,0,7,15,31,31,15,7,8 
, 248, 240,240,224,224,192,128 
70 DATA 1,3,3,7,15,15,24,1, 
128,192,192,224,240,240,24, 
128 
BO DATA 1,7,25,31,31,31,31,15 
,224,240,240,240,240,224,192, 
128 
90 DATA 8,8,8,8,73,42,28,8,16 
,/56,84,146,16,16,16,16 
100 FOR i=USA "a" TO USA "P"+7 
: READ a: POKE ài,a: NEKT à 
110 LET TOTAL=100 
140 DATA "AB”","AB","CD","CD”,” 
EM" ."aB”","EF”,"Ega”, "mn" ER”, 
Ne, PMN” 
145 DATA "sr, rMnr, "Ear, CMNr," 
HT POA” CD”, COM, PER", MAB”, 
CD”, "MN" 
150 DATA "EFPAPMNP," Ed 1 jo 
CD”, “AB”, "am", "AB", "Em", "CD”," 
TJ EI Jh 
160 DIM aS(24,4): DIM b$(24,4) 
+ DIM cS(24,4): FOR i=l TO 12: 
READ aS(i): LET aS(i+]2)=ast(i) 
: NEXT à 
180 FOR 1=1 TO 12: 
LET b$(1+12)=bS(i): 
190 FOR 1=) TO 12: 
LET ecsti+l2)=cS (1): 
860 BORDER 7: PAPER 9: 
CLS 
B70 PRINT “* 
B80 FOR 1=0 TO 1: 
31: PRINT PAPER Z;AT 1,3;" 
- NEXT 3: NEXT à 
B90 FOR I[=2 TO 5: PRINT AT 1,0 
: PAPER 6;"DODOPGAT 1,28;" 0 
ot *: NEXT 1 
900 PRINT PAPER 6; INK 2Z;AT O 
:16;"10 CENTAVOS A JOGADA" 


READ bS(i): 
NEXT 1 
READ esti): 
NEXT 1 

INK 2: 


FOR 3=0 TO 


-« 920 PRINT PAPER 6; 


910 PRINT PAPER 6; INK 2Z;AT 1 
4;"0D000O000DCO0O0O0O0OODUDO 
ODOODO":AT 2,4;" UDORPBER 
FIF'OFLEPPOCDODME or 
INK Z;AT 1 
4;"DODODUDODOODODOSDDO 
0D00D0D*; &T 3,4; "OTEREE 
FUPOFU FOPL E DE: 
930 PRINT PAPER 6; INK 2; AT 1 
4; "OOBOODODODOonD ao 
GODODD";AT 4,4; *ULDBEDE) 
op a fas E (al) a] o (DO 
940 PRINT PAPER 6; INK Z;AT 1 
'4:" DDOBD0O020O0DD0ODDODODDO 
00000D0”";,AT 5,4;"000D"; INK 
0; " HERE EREREREREREEEE 
a EETEI”: 
950 FOR i1=6 TO 14: FOR j=B TO 
23 STEP 5: PRINT INK O;AT 1,3 
" "+ NEXT 5: NEXT à 
960 FOR 1=8 TO 23: PRINT 
51; INK 0;"”: NEXT à 
970 FOR I=6 TO 21: PRINT 
PAPER 6; AT I, Di SS CEEE 
AT I,24; D00n0O”: NEXT I 
980 FOR [=16 o 21: PRINT 
PAPER 6:;AT I,8B;"ODO0ODDDODODOLU 
5000500”: NEXT I 
990 PRINT INK 1; PAPER B;AT 2 
-0;"PREMIO";AT 2,26;"PREMIO"; 
a Mis" MB ATI, a 


1000 PRINT INK 1; PAPER B;AT 4 
2:"10”P;AT 4,27: "L00”;AT 6,2/"2 
O":;AT B,2;"S0";AT 7/,27;"RAPA";A 
T 8,25,» mm q 
1010 PRINT INK 1; PAPER B;AT 2 
0,6;"<GSPACE> GIRA AS RODAS" ;AT 
21,3:"HOLD SEGURA E NUDGE EMPUR 
RA” 
1020 enbatadçã AT 1% 7:"0D0 2 DE 
02 00003 0000” ;AT 16,94" Hi 
nun nana Ena” 
1030 PRINT AT 18,7;"D4=].205=26 
3)6=1.3";AT 19,4; INK 7; PAPER 
2: "HOLD TECLAS DE 1 A 60" 
1040 RETURN 


AT 15 


A linha 10 salta para a sub-rotina da 
linha 860, que desenha o caça-níqueis. 
As instruções ao jogador são colocadas 
na frente da máquina. 

A linha 100 cria os blocos gráficos — 
UDG — na memória usando o coman- 
do READ para ler os valores contidos 
nas linhas DATA 20 a 90, Depois que 
o banco de blocos é criado, os caracte- 
res das frutas aparecem nas linhas 140 
a 150, de onde o programa retira dados 
para produzir as rodas giratórias. As va- 
riáveis a$, b$ e c$ representam as três 
rodas, e a ordem das frutas na rodas é 
determinada pela ordem dos blocos nas 
linhas DATA. 


200 GOSUB 1050 
1050 PRINT AT 5,0;AS(4);"-==-"; 
AT 7,0;AS(4);AS(4);"--";AT 9,0; 


AS(4);AS(4) AS(4);AT 10,0;AS(1) 
:AS(I);AS(I) 

1060 PRINT AT 11,0;€CS8(2);C5(2); 
CS(2):AT 12,0:BS(1);BS(1);B$S(1) 
1070 PRINT AT 5,26;C5(1);CS(1); 
CS(I);AT 6,26;C8(3);€C5(3);C5(3) 
“AT 9,26;CS (4) ;CS(4);CS(4) 

1080 PRINT AT 7,10;AS(I)J;AT 10, 
IO:AS(2):AT 13,10;AS(3) 

1090 PRINT AT 7,15;BS(1);AT 10, 
15:BS(2);AT 13,15;85(3) 

1100 PRINT AT 7,20;CS(1);AT 10, 
20; CS(2):;AT 13,20;C5(3) 

1110 PRINT AT 16,26; INK 2; PAP 
ER 6;"NUDGE";AT 17,24;"TECLAS"; 
AT 15,25:"Q-W-E P";AT 18,25;"A- 
S-D 0" 

1120 PRINT INK O; PAPER Z;AT 1 
2,253" e [=== [= [jam jog "AT 13,253” 
DraATI3, 31; E: AT 14,25:"|80 


me jr, AT 13,26; INK 2;” EM 
NEH” 

1130 PRINT PAPER 6; INK O; INV 
ERSE 1;AT 15,0;"TOTAL”; INVERSE 
O:AT 17,0;"8”";AT 1B,0;FCOI;AT 1 
7,1; PAPER 7: BRIGHT L;"DI";AM 

18,1:"7100" 

1140 PRINT 41:AT 0,0;"O O OUCACI 


FE INICIAL = 1 DOLLAR” 
1150 PAUSE O 

1160 PRINT 41;AT 0,0, 
EA MD JOD Elsisinia 


1170 RETURN 

A sub-rotina da linha 1050 desenha 
as rodas em sua posição inicial junto 
com alguns detalhes complementares. O: 
jogador é informado que seu cacife im- 
cial é de um dólar e que cada jogada cus- 
ta dez centavos. 


a q EBD SS 


OS BLOCOS GRÁFICOS 





10 PMODE 3,1:PCLS:CLS 
20 DIM B(12),C(12),A(12) 
,8(12),PL(12),P(12),R1(15) 
5). R3(15),W(9),H(29) 

30 DRAW" BM16, OC2L2GLG4ADG4ADZR/FR 
FR3ERER7ZU2ZH4UH4LH”: PAINT (14,10) 
: DRAW" BM17, 2C1IF4DF” 

40 GET(0,0)-(31,15),B,G 

50 DRAW”BM62, 0OC2L6GL6G2C4LIGCLCL 
GFDGLGLGLGFRFRFR3ERERERSFRFRIER 
EREHLHLHLSHEHLHLH” : PAINT (48,8): 
DRAW" BMd41,8CIFRFRFANFURZURZURBM 
-4,-2HBM-5, 7HBR17H” 

60 GET(32,0)-(63,15),€,6 

70 DRAW"BMBO, 0C36G8R17NH8BD2LNLI 
SGLGLGLGL3NH3RFR7E”" : PAINT(80,4) 
: PAINT (80,13) 

80 GET(64,0)-(95,15),A,6 

90 DRAW" BM96, 0C4R30BD2L30DR30BD 
GUBUZHL4D2NR4D2BL/U3HL3GDNR4D2B 
L12R4EHEHLSD2NR2D2BD2R30DL30BD2 
R30” 

100 GET(96,0)-(127,15),BR,6 

110 DRAW"BM148, 0C2GL3IGC4LHLGLIG 
4RF3RF5RFR3ERES4UERZEILHILHLGLSG 
L”": PAINT (144,8) :DRAW"BM138,3C1R 


»'BR(12) 
+R2(1 








| Lo 1 = Ta | | j É | e E E E A = 
1 ] 1] | SE | 





10 CENTS A CAME 


ss GUPERFEUIT 


PRESS 
Do ii E: 
MEL: 


NR RILIC (UE a : 
TM EIT LITTMA 


O caça-níqueis “'Superfruit 


BR1l3RBDBLIOLBDBLSLBDBRBRBR9REBDB 
L4LBLI3ILBDBRIORBR4BDLBL9LBDBR4R 
BG2ZLBR6R” 

120 GET(128,0)-(159,15),5,6 

130 DRAW"BMIB6, OCIL2GLSDGR6DF4D 
G2LG3LGL5SH6ESR2" : PAINT(1/6,8B):D 
RAW" BR6BDCIDZF” 

140 GET(160,0)-(191,15),PL,G 
150 DRAW"BM218B,0OC2L4DL3D3FADF4L 
GLGLI3HLHUE7ZREU2” : PAINT(20B,8): 
DRAW" BM211,6CIDFZ” 

160 GET(192,0)-(223,15),P,G 


O nosso caça-níqueis é desenhado em 
PMODE3. Os comandos GET e PUT 
são utilizados para desenhar os simbo- 
los das frutas nas rodas giratórias, 

As matrizes que contêm os simbolos 
são dimensionadas na linha 20 — B pa- 
ra o sino, C para a cereja, A para a bo- 
lota de carvalho, BR para a barra, S pa- 
ra o morango, PL para a ameixa e P pa- 
ra a pêra. As matrizes Rl, R2 e R3 ço 
presentam o conteúdo das três rodas; W 
contém os valores dos prêmios e H é 
usada para segurar as rodas, impedin- 
do que girem livremente. 





AS INSTRUÇÕES 


170 B$=CHRS (128) :CLS:PRINT €9,B 
S" super fruit"BS 
180 PRINT"VOCE TEM 1 DOLAR.CADA 


JOGADA CUSTA .10,ATE ACABAR 
O DINHEIRO" 

190 PRINT"controles:":PRINT "<S5 
PACE>"TAB(3)”"-GIRA RODAS/APOSTA 
":PRINT"<1I>"TAB(3)"-LIBERA RODA 
Ss” 

200 PRINT"<2>"TAB(3)"-SEGURA RO 
DA ESQUERDA”: PRINT"<3>"TAB(3)"- 
SEGURA RODA DO MEIO":PRINT"<4>" 
TAB (3)"-SEGURA RODA DIREITA” 
210 PRINT "<5>"TAB (3) "- EMPURRA 
RODA ESQ. P/ CIMA”":PRINT"<6>2"TA 
B(3)"-EMPURRA RODA CENTRAL P/CI 
MA”: PRINT"<7>"TAB(3)”"-EMPURRA R 


* é bem atraente 


— 


Ss 


É sé pé; 


ICE ECT 
PP 








no Acorn, micro que não existe no Brasil, A direita, como ele aparece no Spectrum. 


P/ CIMA” 

220 PRINT "<B>"TAB(3)”"-EMPURRA 
RODA ESQ.P/BAIXO”":PRINT"<9>"TAB 
(3)"-EMPURRA RODA CENT. P/BAIXO 
":PRINT "<0>"TAB(3)”"-EMPURRA RO 
DA DIR.P/BAIXO": PRINT"<ENTER>"T 
AB(3)"-RECOLHE O PREMIO”; 


ODA DIR. 


As linhas 170 a 220 escrevem as 1ns- 
truções na tela de textos. 


A TELA INICIAL | 


230 IF INKEYS<>" " THEN 230 

240 FOR A=0 TO 15:READ RI(A),RZ 
(A) ,R3(A) :NEXT 

250 DATA 0,1,2,3,5,6,6,2,0,5,3, 
4,4,6,5,6,4,3,1,2,0,3,0,5,2,1,4 
6,5,1,0,6,6,1,4,3,2,0,1,5, 3), Es 
4,6,6,6,4,5 

260 FOR A=0 TO 9:READW(A) : NEXT 
270 DATA 200,150,100,80,60,40,3 
0,20,10,0 

280 GOSUB 4000 

290 SCREEN 1,0:PCLS 3:DRAW"BM84 
|, 4C2520LDRDLBR2NUZRUZBRND2RDLBE 
BRNRDNRDRBRUZRDLFBRUNRURBRNDZRD 
LFBRNUZRUZBRD2BR2U2ZLA2” 

300 FOR K=0 TO 2Z:LINE (40+64*K, 
20)- (87+64*K, 115), PRESET,BF:NEX 
+ 

310 FOR K=0 TO 2:DRAW"BM"+STRS( 
40+64*K) +", 124S16R12D4L1] 2U4BFDZ2 
BRUNLUBAZRD2LUZBRID2ZRBR2U258RFD 
26GL”" :NEXT 

320 GET(38,122)-(91,143),H,6 
330 COLOR 4:FOR K=1 TO 5:LINE(1 
0+K*16,158)-(21+K*16, 169), PSET, 
BF:NEXT 

340 DRAW"BR30C1S524U2ZF 2U2ZBRD2RUZ 
BRD258RE2Z2U2H2L5S24BR3LDZAUBENADN 
RDR” 

350 GOTO 350 

4000 CLS: PRINT €11,"premios” 
4010 PRINT €65,"BARRA BARRA B 
ARRA”": PRINT” BOLOTA BOLOTA BOLO 
TA”:PRINT” AMEIXA AMEIXA AMEIXA 





"MORANGO MORANGO MOR 
ANGO” : PRINT” PERA PERA PERA 
": PRINT” SINO SINO SINO” 
4030 PRINT” CEREJA CEREJA CEREJ 
A”: PRINT” SINO SINO =" : PR 
INT” CEREJA CEREJA =": PRINT" 
CEREJA  - 

4040 FOR A=0 TO 9:IF A<7 THEN P 
RINT G89+A*32, USING"SSH. HI" WA 
)/100;:GOTO 4060 

4050 PRINT €89+A*32, USING" SS4.4 
Er ;W(A-1)/100 

4060 NEXT 

4070 PRINT €416,"PRESSIONE <SPA 
CE> PARA CONTINUAR” 

4080 IF INKEY$<>” " THEN 4080 
4090 RETURN 

As linhas 240 e 250 colocam as rodas 
na tela — cada número representa uma 
das frutas. As linhas 260 e 270 acertam 
os valores dos prêmios, A linha 280 sal- 
ta para a sub-rotina que começa na li- 
nha 4000; esta exibe os resultados pre- 
miados e seus valores. 

As linhas 290 e 340 desenham a tela 
inicial. É a linha 290 que liga a tela de 
alta resolução, permitindo o surgimen- 
to do caça-níqueis na tela, 


Cd e 


O programa listado a seguir cuida es- 
pecificamente da parte gráfica básica do 
jogo caça-níqueis. 


5 CLEAR 5000 

10 SCREEN 1:COLOR 1,11,15:KET O 

FF 

20 DATA 14,31,31,31,31,15,3,1,5 

6,252,252,252,252,248,224,192 

30 DATA 49,42,51,42,50,255,255, 

255,152,84,216,84,84,255,255,25 

5 

40 DATA 3,4,8,28,62,62,62,28,26B 

,/190,125,62,28,0,0,0 

50 DATA 0,0,16,28,15,7,3,0,4,12 

,26,56,248,240,224,0 | 
60 DATA 0,0,7,15,31,31,15,7,8,2|) 


4020 PRINT 








48,240,240,224,224,192,128 

70 DATA 1,3,3,7,15,15,24,1,128, 
192,192,224,240,240,24,128 

80 DATA 1,7,15,31,31,31,31,15,2 
24,240,240,240,240,224,192,128 
90 DATA 8,8,8,8,73,42,28,8,16,5 
6,84,146,16,16,16,16 
100 FOR 1=15*8 TO 30*8 
110 FOR J=0 TO 7 

120 READ A:VPOKE BASE (7)+1*B+J, 
A 
130 
140 
150 


STEP 8 


NEXT J,1I 

FOR 1=15 TO 31 

READ A:VPOKE BASE (6)+I,A 
160 NEXT 

170 DATA 143,143,31,31,111,111, 
191,191,63,63,223,223,159,159,3 
1,31,0 

180 DIM A(24,2),8B(24,2),C(24,2) 
190 FOR 1=0 TO 11:BEAD A(I,1),A 
(T.B):ACT+12,1)=A(T,1) CA(I+412,2 
200 FOR 1=0 TO 11:READ B(1,1),B 
(1,2) :B(1+12,1)=B(1I,1):B(1+12,2 
)J=B(1,2):NEXT T 

210 FOR T=0 TO 11:READ C(I,1),6 
(1,2) :C(1+12,1)=C(I,1):C(I+12,2 
J=C(1,2):NEXT TI 

220 DATA 200,208,120,128,136,14 
4,152,160,168,176,184,192,200,2 
08,216,224,168,176,136,144,216, 
224,120,128 

230 DATA 216,224,136,144,200,20 
8,152,160,216,224,168,176,184,1 
92,120,128,200,208,152,160,168, 
176,120,12B 

240 DATA 120,128,200,208,184,19 
2,152,160,216,224,120,128,136,1 
44,168,176,200,208,184,192,152, 
160,216,224 

860 PRINT "" 

8720 FOR T=0 TO 31: 
)+1,254:NEKT 

BB0 LOCATEÉ 4,0:PRINT "10 CENTAV 
OS A JOGADA” 

890 LOCATE 2Z,2:PRINT * " :CHRS( 
254):" POPEFPRFOSOFOarilo 
me” 

Q00 LOCATE 2,3:PRINT *  ";CcHRS( 
254);" BODDFROA ",CHRS(254)," 8 
UR": CHRS(254);" MODDNT "CHARS 
(saji” Ss 

910 LOCATE 2,4:PRINT " "+ QHRSC( 
254): MEJMNJE “.CHRS(254);"REUE 
mr”. CHRS(254);" BORNE CCHR 
S(t254)4" * 

920 LOCATE 2,5:PRINT " Li EEE 
EEN nnnnnRaa |" 

970 FOR I[=6 TO I4:LOCATE 8,1:PH 
INT STRINGS (12,254) :NEXT 

990 LOCATE 0,4:PRINT “10";: LOCA 
TE 0,6:PRINT "20" ;:LOCATE O, B:P 
BINT "50";:LOCATE 25,4:PRINT add 
00”; :LOCATE 25,7:PRINT CRAPA";: 
LOCATE 24,8:PRINT " HEHEHRH ",:V 
POKE BASE (5)+28/,197 

1000 LOCATE 8B,15:PRINT *º JEBU 
BED ";:LOCATE 10,16:PRINT 
“1 Z 3" 

1010 LOCATE 6,17:PRINT "4=162 5 
=2783 6=143": LOCATE 6,18:PRINT 
"HOLD TECLAS 1 A 6"; 


VPOKE BASE (5 


LOZO LOCATE 1,19:PRINT "BARRA D 
E ESPAÇO PARA RODAR” 
1030 LOCATE 0,20:PRINT 
GURA E NUDGE EMPURRA”; 
10580 FOR T=1 TO 2:VPOKE BASE (S) 
+I59+T,A(Z, T) :NEXT:LOCATE 0,5:P 
RINT STRINGS (4,254); 

1060 FOR J=0 TO 1:FOR T=1 TO 2: 
VPOKE BASE (5) +223+H1+J*2,A(2Z,T): 
NEXT I,J:LOCATE 2,7: PRINT CHES( 
2644) ; CHARS (254); 

10720 FOR J=0 TO 2:FOR L=] TO 2: 
VPOKE BASE (5) +287+1+J*2,A(1,1): 
NEXT L E JJ 

1072 FOR J=0 TO Z:FOR 1I=1 TO 2: 
VPOKE BASE (5) +LB5+I+J*Z,A(I3, TD: 
NEXT T,d 

1074 FOR J=0 TO 2:FOR 1=1 TO 2: 
VPOKE BASE(5)+21]7+1+J*2,A(8B,T): 
NEXT 1,d 

1076 FOR J=0 TO 2:FOR 1=1 TO 2: 
VPOKE BASE (5)+313+1+J*2,A(6, IT): 
NEXT T,d 

1080 FOR J=0 TO 2:FOR T=1 TO 2: 
VPOKE BASE (5) +319+1+J*2,A(5,T): 
NERT I,uy 

1090 FOR J=0 TO 2:FOR 1I=] TO 2: 
VPOKE BASE (5)+351º 1+J*2,A(7,1): 
NEXT IT, 

1100 FOR 1=235 TO 500 STEP 96:F 
OR J=1 TO 2:VPOKE BASE (5) +]+J-1 
«A((1-235)/96+1,J) :NEXT JT 
1110 FOR 1=239 TO 500 STEP 96:F 
OH J=1 TO Z2:VPOKE BASE (5) +I+J-1 
«B((1-239)/96+1,J) NEXT J,] 
1120 FOR 1=243 TO 500 STEP 96:F 
OH J=1 TO 2:VPOKE BASE (5) +1+J-1 
(C((I-243)/96+1,)) :NEXT J,l 
1130 LOCATE 22,13:PRINT "TECLAS 
".«LOCATE 22,14:PRINT "NUDGE" : 
LOCATE 21,12:PRINT "O-W-E ":LO 
CATE 21,15:PRINT "A-S-D 

1140 LOCATE 0,13:PRINT "TOTAL"; 
“LOCATE 0,14:PRINT "5"; :LOCATE 
0,15:PRINT "C";:LOCATE 2, 14:PRI 
NT "]J”";:LOCATE 2,15:PRINT "00"; 
1150 LOCATE 1,22:PRINT "CACIFE 
INICIAL = 1 DOLLAR”; 


"HOLD SE 


Os blocos gráficos que se encontram, 


na listagem podem ser obtidos via teclas 
SHIFT, CODE e GRAPH. 

O programa é executado na tela de 
textos de 32 colunas. Ao mesmo tempo, 
os símbolos qué representam as frutas 
são desenhados como se fossem carac- 
teres. Os padrões correspondentes de- 
vem ser transferidos das linhas DATA 
20 a 90 para a tabela de padrões na 
VRAM — linha 120. Os caracteres são 
coloridos pela linha 150, que coloca os 
códigos apropriados na tabela de cores 
da VRAM — BASE(6). 

Três matrizes são utilizadas para re- 
presentar as rodas giratórias: A, Be CL. 
Elas são dimensionadas na linha 180, A 
ordem dos símbolos nas rodas é obtida 
pelas linhas 190 a 210 nas linhas DATA 
220 a 240. 

A máquina de frutas, com as instru- 


ções ao jogador, é desenhada pelas li- 
nhas 860 a 1060. Os resultados premia- 
dos aparecem na tela com o auxílio das 
linhas 1070 a 1090, 

As rodas são desenhadas em sua po- 
sição inicial pelas linhas 1110 a 1120. E 
as linhas restantes dão mais algumas ins- 
truções. 

No próximo artigo, veremos como 
colocar as rodas em movimento. 

O programa listado a seguir cria os 
blocos gráficos e as telas com o caça- 
niqueis e as instruções. 





'E = 35000: HIMEM: E 
20 E = INT (E / 256): POKE 232 
E -F* 256: POKE 233,F 

30 FORI = E TO E+41+ 16% 


10 HOME 


40 READ A: POKE T,AÃ 
50 NEXT 
60 SCALE= 1: 
70 DATA 20 
106 40 04135 4 
234 0 10 4d 
06 ,1 ,138 4 
23 sd HO vd 
E co ESB: sia 
BO DATA O 
219 ,2? ,87 
261 ,31 ,87 413 
ST. 3d ct cv ds 
PÃO vê ço sd 40 
90 DATA O ,104 ,13 
281 219,5) 443 43 o E 
RT nd podd ql EIO ta 
AI «2? 3) dd sd 4:10 
209 ,219 ,27 ,31 ,6 
100 DATA O ,40 ,109 
1251) 02451) 451) 45 547 
2585 ,251 ,51 4,45 471 
8 ,219 ,219 ,42 ,45 ,45 
à 63 ,63: 64 555 40 +19 
110 DATA O 104 ,4] 
O ,251 0251. ,87 13 045 
8 923 AL silo ES 407 
t9 .219 ,155 ,45 ,45 ,45 
59 63 ,63 ,63 ,6 ,0 ,O 
120 DATA O Tê qd 473 
DES SELO siM. pio 73 418 ,223 
PIiS 74 49 vt3 4 87 va£G 
261 (106: 13,77 ,209 ,219 ,27 
ES 40 40 0 40 O 
130 DATA O ,40 ,77 73 ,209 
“219 219 ,115 4,73 573 ,209 sê 
9 .219 ,093 4477 073 209 219 qê 
2 AS 13 ,13 47 5288 4205 
DE sd mi! q 40 SM qo 
140 DATA 0,72 ,73 ,73 ,218 
251 219 0,74 573 477 12418 ,25] 
223: ,74 ,105 ,77 ;,218 ,251 43 
1,07 77 1058 ,209 ,219 5254 & 
19 50,0 ,0 40 40.4 
150 DATA O ,104 ,73 
220 251. IRD 04? ES ABB 
7 «dt 23) ,I10 sã 77 205 48 
1 231 +31 AO 572,105 «Rib R2 


ROT= O 
0 ,42 
AZ0 
(42 
170 
42 42 


O 024 4,0 + 
O «202 ,O 
| 74 4) 4d 
À 202 vÊos 
74 ,2 +40 
218 
218 , 
218 ,2 
1,251 


E 7 


Re 


(105 
ÃS od? 
e RR 
A 218 


[1209 
141 
çãa vd 
çÃ3 quer 


As 


rs 

405 

1105 
(45 


213 
,26 
21 
2a 

109 ,20 

77 qd 

169 vá 
LPS | 


73 ,218 
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. . + 


tos asas, 
IRRITA: 


iosiisstado,,. 


ts 
Cio, 
/% 
e 


ditiso. 


e 
2. 


ag 455 


ê 04º 
CerrsengpenteS* 


vd 


E ... [a é res prbsra ds ros na a ea o] Pie erre err 


ALDIR Cinta ssrerrepd pré igitds Pitpêtegrro 


RN 
nedadasijdi cet LSD e Di RS ÃO 


ALTLTREDECADDE 


RE .s a ] 
par 
CESTLVILT ARE Ps e PPT EEE na PES CÊ ' A 
i d 
r “O 7 POP EM é PRINNND . Wo.,] A 
| ] 








7 ads ,9) ,0. ,0 
160 DATA O ,7/Z 
1219 ,219 74 49 13 
SE sol ASS ,dS pl TAS 
E ndh Ad pal pAIO 449 
87 vdd 43d 0499 +) 
170 DATA O ,72 ,105 
AS) qd 487 s43 443 
219 ,31 ,87 ,13 477 
A gal 587 s27. sia 
219 ,19 ,0 ,0 ,0 ,0 
180 DATA O ,722 673 ,73 ,218 
,/251 ,219 ,74 ,105 ,77 ,218 ,25 
Li G87 TI 73 ,209 (27 dl 
Ed A O: ha at VALA pal vê 
19 ,2 40,0 ,0 4,0 
190 DATA O ,104 ,73 
1219 ,25851 ,110 ,13 ,77 ,209 ,Z 
SL ed sab AB 23 gia ABB vd 
3d 0,31 110 ,13, 677 5209 5219 
219 ,51 ,0 ,0 ,0 ,0 
200 DATA O 172 4,73 
423 v219 ,74 AI 13 IML 27 
dd st 3) ,AIO add 13 441» 
27 4a) pooh Sb Pb pas AS ESA 
AT gd 883 vAS qb 
210 DATA O ,72 ,105 ,77 ,218 
219 ,219 ,110 ,105 ,73 ,246 , 
251) ,9) ,87 13,43 477 418 qd 
S1 ,31) 567 ,13 77 ,1437 ,alD pá 
19 ,187 ,0,0,0 ,0 ,0 
220 DATA O ,40 ,45 ,45 ,45,, 
213 ,63 ,63 ,63 ,55 ,45 ,45 ,45 
73 ,59 ,63 ,63 .63 ,78 473, 
13 236 219 GELO PA PS 73 + 
216 ,219 ,219 ,2 ,0, 0 
230 DATA O STE vt3 73 qd 
8 ,219 ,219 ,106 ,73 ,73 ,218 
219 ,281 4110 477 073 218 dd 
3) 5159 ,9 ,13 513 ,I4i ,2/ 5 
1 ,2423 419 ,0 +00 ,0 
260 DIM R1(15),R2(15),R3(15) 
270 FORI = O TO 9: READ WI): 
NEXT 


0 0 
PI TI 218 
(141 ,27 , 
141 ,2 
13 , 141 


dr, 
77 

5437 
209 


,/218 
[218 
219 
219 


173 ,218 


173 ,218 


280 DATA 24:54, 8,69. 84:3 
) A 1,0 

300 GOSUB 310: END 

305 END 

310 HOME : HGRZ2 

320 DATA 54,20,40,20,40,40,5 


4,40,54,60,40,60,0,0 


330 DATA 60,20,60,60,74,60,7 
4,20,0,0 

340 DATA 80,60,80,20,94,20,9 
4,40,80,40,0,0 

350 DATA 114,20,100,20,100,4 


0,110,40,100,40,100,60,114,60,0 
+10 

360 DATA 120,60,120,20,134,2 
0,134,40,120,40,130,40,134,60,0 
50 

370 DATA 154,20,140,20,140,4 
0,150 ,40,140,40,140,60,0,0 

380 DATA 160,60,160,20,174,20 
,174,40,160,40,170,40,174,60,0, 
0 

390 DATA 180,20,180,60,194,60 
1194,20,0,0 

400 DATA 210,20,210,60,0,0 
410 DATA 220,20,234,20,227,2 
0,227,60,200,200 

490 HCOLOR= 3 


500 READ X,Y 

510 HPLOT X,Y 

520 READ X,Y: IF X = O AND 7 = 
O THEN 500 

530 IF X = 200 AND Y = 200 THE 

N 590 

540 HPLOT TO X,Y 

550 GOTO 520 

590 HCOLOB= 3 

600 FORI = 70 TO 150 

610 HPLOT 60,1 TO 210,1 

620 NEXT 1 

630 HCOLOR= 0: FOR I = 80 TO 1 
40 

640 HPLOT 75,1 TO 105,1 

650 HPLOT 120,1 TO 150,1 

660 HPLOT 165,1 TO 195,1 

670 NEXT 

680 RETURN 

700 HOME PRINT TAB( 15);"SU 

PERFRUIT": PRINT : PRINT 


710 PRINT "VOCE COMECA COM Sl. 


CADA JOGADA CUSTA DEZ CENTAV 
0S. O JOGO DURA ATE SEU D 
INHEIRO ACABAR." 

720 PRINT : INVERSE PRINT "C 
ONTROLES:”: NORMAL PRINT 


730 
:"GIRA AS RODAS/APOSTA” : 


PRINT "<ESPACO>"; TAB( 10) 
PRINT 


"<1>"; TAB( 10);"LIBERA AS RODA 
E” 
740 PRINT "<2>" TAB( 10)" SEGUR 


A RODA ESQUERDA": PRINT "<3>" T 
AB( 10)"SEGURA RODA DO MEIO": P 
RINT "<4>" TAB( 10)" SEGURA RODA 
DIREITA” 

750 PRINT "<5>" TAB( 10)" EMPUR 
RA RODA ESQ.PARA CIMA”: PRINT ” 
<6>" TAB( 10)" EMPURRA RODA CENT 
RAL PARA CIMA”: PRINT "<7>" TAB 
( 10) "EMPURBA RODA DIR.PARA CIM 
A" 

760 PRINT "<8>” TAB( 10)"EMPUR 
RA RODA ESQ.PARA BAIXO”: PRINT 
"<9>" TAB( 10)" EMPURRA RODA CEN 
TRAL P/ BAIXO”: PRINT "<0>2" TAB 
( 10) "EMPURRA RODA DIR.PARA BAI 


X0O": PRINT "<ENTER>" TAB( 10)"R 
ECOLHE PREMIO”; 

765 PRINT : PRINT "<ESPACO> PA 
RA CONTINUAR "; 

770 GET AS: IF AS < >” * THE 
N 700 

775 RETURN 

780 FOR A = O TO 15: READ RI(A 
J,RZ(A),RI(A): NEXT 

790 DATA 0,1,2,39,5,6,6,2,075 
,(34,4,4,6,5,6, dude dada ado 
1,4,6,5,1,0,6,6,1,4,3,2,0,1,5,3 


/2,4,6,6,6,4,5 
820 RETURN 
4000 HOME 

ALORES PREMIADOS”: 


PRINT TAB( 10);"V 
PRINT : PRIN 


T 
4010 PRINT "BARRA BARRA  BARR 
A"; TAB( 30);W(0) 


4020 PRINT PRINT "BOLOTA BOL 
OTA BOLOTA”; TAB( 30) ;W(1) 
4030 PRINT PRINT "AMEIXA AME 
IXA AMEIXA”; TAB( 30);W(2) 
4040 PRINT : PRINT "MORANGO MO 


RANGO MORANGO"; TAB( 31);W(3) 


CUIDADOS ESPECIAIS 


Verifique se as três partes do co- 
mando DATA ligadas aos objetos são 
lidas na matriz correta. Se tentarmos 
colocar uma cadeia de caracteres de 
um comando DATA em uma matriz nu- 
mérica, receberemos uma mensagem 
de erro, ou uma descrição curta onde 


esperávamos por uma longa. 

Tenha muito cuidado ao combinar a 
ordem das partes do comando DATA 
com a ordem das matrizes nos coman- 
dos READ, pois o mesmo problema po- 
de ocorrer. À ordem é: posição, descri- | 
ção curta e descrição longa. 

Faça um “teste de mesa” na sua 
aventura, depois de ter colocado os ob- 
jetos, para verificar se eles aparecem 
nas posições corretas. | 

Use seu mapa quando checar os ob- | 
jetos, assegurando-se, assim, de que 
não está perdendo nenhum. 





4050 PRINT : PRINT "PERA PER 
A PERA”; TAB( 31);W(4) 

4060 PRINT PRINT "SINO SIN 
Õ SINO”; TAB( 31);W(5) 

4070 PRINT PRINT "CEREJA CER 
EJA CEREJA"; TAB( 31);W(6) 

4080 PRINT : PRINT "SINO SIN 
0”; TAB( 31):;W(7) 

4090 PRINT PRINT "CEREJA CER 
EJA”; TAB( 31);W(7) 

4100 PRINT : PRINT "CEREJA"; T 


AB( 31);W(8) 
4110 GET A$: RETURN 


A primeira parte do programa, que 
vai da linha 10 à linha 230, cria uma ta- 
bela de figuras móveis no topo da me- 
mória do micro. Essa figuras são os sim- 
bolos das frutinhas, que podem então 
ser desenhadas por intermédio do co- 
mando DRAW. 

As linhas 320 a 670 desenham a má- 
quina caça-níqueis na tela de alta reso- 
lução (nenhuma fruta aparecerá por en- 
quanto). As linhas DATA de 320 a 410 
são usadas para escrever a expressão 
“SUPER-FRUIT”. 

Uma tela com instruções destinadas 
ao jogador é criada pelas linhas que vão 
de 700 a 770. Outra tela, com os resul- 
tados que valem pontos, é escrita pelas 
linhas 4000 a 4100. 

Três matrizes são utilizadas para re- 
presentar as rodas: RJ, R2 e R3. A or- 
dem dos símbolos nas rodas é determi- 
nada pela linha DATA 790. 

No próximo artigo, as rodas serão 
colocadas em movimento. 








LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





INEENO PRÓXIMO NUÚUMERONHEEEHHII! 


PERIFÉRICOS 


Existem dois tipos de memória auxiliar para micros: a fita cassete e o disquete. 
Veja como fazer a melhor escolha. 


APLICAÇÕES 


Complete seu programa de agenda e calendário eletrônicos e atualize as informações. 


PROGRAMAÇÃO BASIC 


Elipses, parábolas, hipérboles... Abandone-se ao fascínio 
das curvas, mesmo que elas não sejam as da mulher amada. 





PROGRAMAÇÃO DE JOGOS 


Cinco gansos e uma raposa: um estranho jogo de 
xadrez no mundo dos animais. 





